10 lines
174 B
Perl
10 lines
174 B
Perl
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;
|
|
}
|