1*988Szelenkov@nginx.commy $app = sub { 2*988Szelenkov@nginx.com my ($environ) = @_; 3*988Szelenkov@nginx.com 4*988Szelenkov@nginx.com return sub { 5*988Szelenkov@nginx.com my $writer = (my $responder = shift)->([200, [ 6*988Szelenkov@nginx.com 'Content-Type' => 'text/plain', 7*988Szelenkov@nginx.com 'Content-Length' => '12' 8*988Szelenkov@nginx.com ]]); 9*988Szelenkov@nginx.com 10*988Szelenkov@nginx.com $writer->write("Hello World!"); 11*988Szelenkov@nginx.com $writer->close; 12*988Szelenkov@nginx.com }; 13*988Szelenkov@nginx.com}; 14