1  #!/usr/local/bin/perl -w
  2  #
  3  # File:  helloWorld.pl
  4  
  5  $date = `date`;  # Unix 'date' utility
  6  $hostpath = "http://www.npac.syr.edu/projects/tutorials/CGI/examples/basic";
  7  
  8  $out = qq{Content-type: text/html
  9  
 10  <HTML>
 11  <HEAD>
 12  <TITLE>CGI Example: Hello World!</TITLE>
 13  </HEAD>
 14  <BODY BGCOLOR="#ffffff">
 15  
 16  <H1>Hello World!</H1>
 17  
 18  This program was run on $date
 19  
 20  <P><HR><P>Return to
 21  <A HREF="$hostpath/helloWorld0.html">HTML form</A>
 22  
 23  </BODY>
 24  </HTML>
 25  };
 26  
 27  print "$out";