Help for this page
read (STDIN, $query, $ENV{'CONTENT_LENGTH'});
foreach my $f (param()) { $query .= "&" if $query && $query ne ""; $query .= "$f=" . param($f); }