#!/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 "pnmtosgi $file >$short.rgb\n";

	system("pnmtosgi $file >$short.rgb");

}
