#!/usr/bin/perl $path = ""; use CGI qw(:all); $showdoc = $path.param('show'); $newdoc = $path.param('new'); # CGI programs must print their own HTTP response headers print "Content-type: text/html\n\n"; print < Jersey Shore Running Club HTMLINFO print < <body> MAINWINDOW if ($newdoc ne "") { print "<script language=\"Javascript\">\n\n"; print "Javascript:newWindow(\"$newdoc\")\n\n"; print "</script>"; } print <<DONE; </body> DONE exit 0;