# usage:
# ls *.jpg | perl img.pl

while($_=<STDIN>){
  chomp($_);
  my $name = $_;
  $name =~ s/\.jpg/.eps/;
  print "<a href=\'$name\'><IMG SRC=\'$_\' width=651 height=434 alt=\'$name\' border=0></a><br>\n";
}