#!/usr/athena/bin/perl

# Pat's PPM -> GIF batch converter.

opendir(CURDIR, ".");

@files = readdir(CURDIR);

foreach  $file (@files) {

        next if $file !~ /\.ppm/;

        $short = (split(/\./, $file))[0];

	print "ppmtogif $file >$short.gif\n";

	system("ppmtogif $file >$short.gif");
}
