#!C:\Perl\bin\perl.exe
use CGI qw/:standard/;
use IO::Socket;
$action = param("action");
$pic = param("pic");
unless ($action) {
print "Location: gallery.html\n\n";
} else {
print "Content-type: text/html\n\n";
&$action;
}
sub showpic {
print <<"EOF";
The Cottage Nurseries
Click here to go back to the gallery
EOF
}
