#!/usr/bin/perl
$|=1;

while (<*.pgm>){
$infile = $_;
$_ = /(.+)\.pgm/;
$outfile = "$1".".tif";
#print $infile,"--",$outfile,"\n";
system("echo making $outfile file!");
system("/usr/bin/ppm2tiff $infile $outfile");

}


