10 lines
424 B
Plaintext
Raw Normal View History

#!/usr/local/bin/perl -w
use CGI; # load CGI routines
$q = CGI->new; # create new CGI object
print $q->header, # create the HTTP header
$q->start_html('Hello World'), # start the HTML
$q->h1('Hello World'), # level 1 header
$q->end_html; # end the HTML
# http://perldoc.perl.org/CGI.html