test/perl/server_port/psgi.pl


1
2
3
4
5
6
7
8

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

    return ['200', [
        'Content-Length' => 0,
        'Server-Port' => $environ->{'SERVER_PORT'}
    ], []];
};