Mercurial > pub > Impl
view _test/test_cgi.pl @ 259:b92f19630d33
Merge with 91bae9f41a9cf2d52f5cff5a5c3e7c8683c7d47e
author | sergey |
---|---|
date | Fri, 21 Dec 2012 00:09:11 +0400 |
parents | 6d8092d8ce1b |
children | c27434cdd611 |
line wrap: on
line source
#!/usr/bin/perl use strict; use CGI qw(-nph); my $q = CGI->new({}); print $q->header({ type => 'text/html', X_My_header => 'some data' });