Create perl.cgi

Hello World using Perl CGI object
2016-10-02 11:20:12 -04:00
parent 3bab02464b
commit 17d0f97553
1 changed files with 9 additions and 0 deletions
--- a/p/perl.cgi
+++ b/p/perl.cgi
@@ -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