RosettaCodeData/Task/Bitmap-Read-a-PPM-file/Tcl/bitmap-read-a-ppm-file-1.tcl

package require Tk

proc readPPM {image file} {
    $image read $file -format ppm
}