soezkan+2008-01-24 23:34:25--

[...]
#!/usr/local/bin/perl -w

##############################################################################
# Main program
#

if($ENV{'REQUEST_METHOD'} eq 'GET') {
$buffer = $ENV{'QUERY_STRING'}
}
else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
[...]

CGI.pm

1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl

use strict;
use warnings;
use CGI;

my $cgi = CGI->new();
print $cgi->header( 'text/plain' );

my %params = $cgi->Vars;

print sprintf( "%s : %s\n" $_, $params{$_} ) for keys %params;