Create perl.cgi
Hello World using Perl CGI object
This commit is contained in:
committed by
GitHub
parent
3bab02464b
commit
17d0f97553
9
p/perl.cgi
Normal file
9
p/perl.cgi
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
#!/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
|
||||||
Reference in New Issue
Block a user