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