Mercurial > pub > Impl

diff _test/test_cgi.pl @ 230:6d8092d8ce1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*reworked IMPL::Security *reworked IMPL::Web::Security *refactoring
author sergey
date Mon, 08 Oct 2012 03:37:37 +0400
parents
children c27434cdd611
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/_test/test_cgi.pl	Mon Oct 08 03:37:37 2012 +0400
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+use strict;
+
+use CGI qw(-nph);
+
+my $q = CGI->new({});
+
+print $q->header({
+    type => 'text/html',
+    X_My_header => 'some data'
+});
\ No newline at end of file