2016-10-02 11:20:12 -04:00
|
|
|
#!/usr/local/bin/perl -w
|
|
|
|
use CGI; # load CGI routines
|
|
|
|
$q = CGI->new; # create new CGI object
|
|
|
|
print $q->header, # create the HTTP header
|
2020-03-30 18:39:11 +13:00
|
|
|
$q->start_html('Hello World'), # start the HTML
|
|
|
|
$q->h1('Hello World'), # level 1 header
|
2016-10-02 11:20:12 -04:00
|
|
|
$q->end_html; # end the HTML
|
2020-03-30 18:39:11 +13:00
|
|
|
|
2016-10-02 11:20:12 -04:00
|
|
|
# http://perldoc.perl.org/CGI.html
|