#!/usr/bin/perl -w

my $name;
my $newname;
my $command;

foreach $name (@ARGV) {
  $newname = $name;
  $newname =~ s/\.eps$/_th.gif/;
  $command = "convert -geometry 200 $name $newname";
  `$command`;

  $newname = $name;
  $newname =~ s/\.eps$/.gif/;
  $command = "pstopnm -ppm -xsize 800 -xborder 0 -yborder 0 -portrait $name -stdout > My.ppm && ppmtogif My.ppm > $newname && rm My.ppm";

  print "$command\n";
  `$command`;
}