diff --git a/p/perl.cgi b/p/perl.cgi
new file mode 100644
index 00000000..118190e4
--- /dev/null
+++ 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