#!/usr/local/bin/perl5 -w
#Dynamic photo gallery
&showpage();
sub showpage {
$timer = &grabseconds();
if($timer == 9) {
$img = "images/solomon.jpg";
}
else {
$img = "images/hstmom.jpg";
}
print "Content-type: text/html\n\n";
print "
\n";
print "\n";
print "\n";
print "
n";
print "\n";
}
sub grabseconds {
$timestring = time();
if($timestring =~ m/6/) {
return;
&showpage();
}
}