#! perl

my $query;
my $req_method = $ENV{REQUEST_METHOD};
    
if ($req_method eq 'POST') {
    $query=<STDIN>; print $query;    # <--
}

# END