test/perl/query_string/psgi.pl


1
2
3
4
5
6
7
8

my $app = sub {
    my ($environ) = @_;

    return ['200', [
        'Content-Length' => 0,
        'Query-String' => $environ->{'QUERY_STRING'}
    ], []];
};