#! perl

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

# END