#!/usr/bin/perl
print "Content-type: text/html\n\n";

print "<CENTER><B>All my pictures in this folder</b><BR><BR>";

print "<TABLE BORDER=0 WIDTH='90%'>";
foreach $n (glob "*"){
 print "<TR><TD VALIGN=center ALIGN=right><A HREF=$n>$n</A></TD>";
 print "<TD VALIGN=center ALIGN=center><IMG SRC=$n></TD></TR>";
 }
print "</TABLE>";