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