Mercurial > pub > Impl

view _test/test_cgi.pl @ 331:2ff1726c066c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
removed operation contract (due it's useless)
author cin
date Wed, 05 Jun 2013 18:21: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'
});