1my $app = sub { 2 my ($environ) = @_; 3 4 return ['200', [ 5 'Content-Length' => 0, 6 'Server-Port' => $environ->{'SERVER_PORT'} 7 ], []]; 8}; 9