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

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