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";
}