#!/usr/bin/perl

$infile = $ARGV[0];
$outfile = $infile; $outfile =~ s/gif/xpm/;

print "$infile -> $outfile\n";
$cmd = "giftoppm < $infile | ppmtoxpm > $outfile";
system($cmd);
