#! /usr/bin/perl
use CGI qw/:standard/;

print header, start_html("Pictures");

die("could not open $dirname") unless (open(LS, "ls |"));
@lsout = <LS>;

foreach $name (@lsout) {
   chomp($name);
   if ( "$name" =~ /\.JPG/ || "$name" =~ /\.jpg/) {
	print "<a href=\"$name\">", img {src=>"Small/$name"} , "</a>\n";
   }
}

print end_html;