gistfile1.txt

my $app = sub {
        my $env = shift;
        $env->{'psgi.input'}->read(my $buf, 4096);
        print $buf."\n" ;
        return [
                '200',
                [ 'Content-Type' => 'text/html' ],
                [ "<h1>Hello World</h1>" ],
        ];
};