debian/perl-framework/t/htdocs/modules/cgi/action.pl.PL


1
2
3
4
5
6
7
8
9
10

use strict;

print "Content-type: text/plain\n\n";

print $ENV{PATH_INFO} . "\n";

if (my $ct = $ENV{CONTENT_LENGTH}) {
    read STDIN, my $buffer, $ct;
    print $buffer;
}