use AE;

my $app =  sub {
    return sub {
        my $r = shift;
        my $t; $t = AE::timer 60, 0, sub {
            my $writer = $r->([200, ['Content-Type' => 'text/plain'] ]);
            $writer->write('Hello World');
            $writer->close;
            undef $t;
        };
    };
};