1my $app = sub { 2 my ($environ) = @_; 3 4 $environ->{'psgi.input'}->read(my $body, 4, 4); 5 6 return ['200', ['Content-Length' => 4], [$body]]; 7}; 8