gistfile1.txt

use strict;
use warnings;
use AnyEvent;
use Plack::Builder;

my $hanlder = sub {
    my $env = shift;
 
    my $cv = AE::cv;
    my $w; 
    $w = AnyEvent->timer(
        after => 3 * 1,
        cb    => sub {
            undef $w; 
            $cv->send([ 200, [], ["hello, world!"] ]); 
        }   
    );  
 
    return sub {
        my $start_response = shift;
        $cv->cb(sub { $start_response->( $cv->recv ) }); 
    };  
}