#!/usr/local/bin/perl
{local$_=q{
my $app = sub {
    my $env = shift;
    [ 200, [ "Content-Type", "text/plain" ], [ "Hello World" ] ];
};
return $app if caller(1)or(caller)[2]!=6;print"{local\$_=q{$_};eval}\n"};eval}