delayed response through psgi

gistfile1.pl

use common::sense;
use AnyEvent::HTTP;

my $app = sub {
    my $env = shift;

    return sub {
        my $respond = shift;

        fetch_content(sub {
            my $content = shift;

            return $respond->([ 200,
                ['Content-Type' => 'text/html'],
                [$content]
            ]);
        });

        return;
    };
};

sub fetch_content
{
    my $cb = shift;

    http_get("http://perldoc.perl.org", sub {
        my ($data, $head) = @_;

        $cb->($data);
        return;
    });

    return;
}