1 #!/usr/local/bin/perl 2 # 3 # File: helloWorld.pl 4 # Nancy McCracken, June 1996 5 # 6 7 print "Content-type: text/html\n\n"; 8 print "<HTML>\n<HEAD>\n"; 9 print "<TITLE>CGI Example: Hello World!</TITLE>\n"; 10 print "</HEAD>\n"; 11 print "<BODY BGCOLOR=\"#ffffff\">\n"; 12 print "<H1>Hello World!</H1>\n"; 13 $date = `date`; # Unix 'date' utility 14 print "This program was run on $date\n"; 15 print "<P><HR><P>Return to\n"; 16 print "<A HREF=\"http://www.npac.syr.edu/projects/tutorials/CGI/examples/helloWorld0.html\"\n"; 17 print "onClick=\"window.open('http://www.npac.syr.edu/projects/tutorials/CGI/examples/helloWorld0.html.html', 'bottom_frame')\"\n"; 18 print ">HTML form</A>\n"; 19 print "</BODY>\n</HTML>\n";