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