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