Instead of hard coding possible results and using endless if-elsif-elsif-elsif ... just use a while loop and rely on the end of line character (CNTRL-D) to stop. Also, use CGI.pm to create the HTML (i added the usage of CGI::Pretty to format the resulting HTML to be more readable):

use strict;
use CGI qw(:standard);
use CGI::Pretty;

my $image;

while (1) {
   print "name (CNTL-D or ENTER exits): ";
   chomp($image = <>);
   exit unless $image;

   print table(    # or you can use: print NEWCONTENT table(
      Tr([
         td([img({-src=>"pics/$image"})]),
         td([img({-src=>"pics/spacer.gif"})]),
      ]),
   ), "\n";
}
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)