#!/usr/bin/perl

#undef $/;
#$/='';

$f=shift;
$o=shift || "$f.eps";
$t = "__$$";

system("jpeg2ps $f > $o 2> $t");
$a = `grep '^Warning:' $t`;

if ($a) { 
  system("convert $f $t.miff; convert $t.miff $t.jpg; jpeg2ps $t.jpg > $o");
  unlink "$t.miff";
  unlink "$t.jpg";
}

unlink $t;