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	wakaba	1.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";