html/form/asis.cgi

#!/usr/bin/perl

use strict;
binmode STDOUT;

print <<EOH;
Content-Type: text/plain; charset=iso-8859-1

query:
___
$ENV{QUERY_STRING}
~~~

entity-body:
___
EOH

binmode STDIN;
read STDIN, my $body, $ENV{CONTENT_LENGTH};

print $body;
print "\n~~~\n";
1	#!/usr/bin/perl
2
3	use strict;
4	binmode STDOUT;
5
6	print <<EOH;
7	Content-Type: text/plain; charset=iso-8859-1
8
9	query:
10	___
11	$ENV{QUERY_STRING}
12	~~~
13
14	entity-body:
15	___
16	EOH
17
18	binmode STDIN;
19	read STDIN, my $body, $ENV{CONTENT_LENGTH};
20
21	print $body;
22	print "\n~~~\n";