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";