Select Code to Download

if ($ENV{REQUEST_METHOD} eq 'POST') {
    my $n = read STDIN, my $query, $ENV{CONTENT_LENGTH};
    warn $! unless defined $n;  # (-> check error_log)
    # ... check $query
}