#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";
$dir = "/home/dave/public_html/images/sw20011128";
$wdir = "images/sw20011128";
opendir(PICS,$dir);
@files = readdir(PICS);
foreach $file (sort @files) {
    next if($file !~ /\.jpg/i);
    print "<IMG SRC=\"$wdir/$file\"><BR>\n";
}
print "<A HREF=\"lego.html\">Back to Dave's Lego</A>\n";
print "</BODY></HTML>\n";