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