#!/usr/bin/perl
print "Content-type: text/html\n\n";
opendir(DIR,"../Images") || &ErrorMsg;
@directory = readdir(DIR);
closedir(DIR);
@directory = sort(@directory);
sub ErrorMsg {
print "Can't find file\n
";
exit;
}
print <<"HTMLcode";
time^n = inspiration^2
HTMLcode
#print @directory;
print <<"htmlcode";
htmlcode