#! perl -w
$_=$ARGV[0];
$newfile = $_;
$newfile =~ s/ppm/gif/;
print "newfile $newfile\n";
print `ppmtogif -transparent rgb:ff/ff/ff -interlace $_ > $newfile`;
print `rm $_`;

