use Coro;
use Coro::AnyEvent;
use Coro::Timer;
use IO::Handle::Util qw(io_from_getline);
 
my $app = sub {
    my $env = shift;
 
    die "You should run this app with Coro backend"
        unless $env->{'psgi.multithread'};
 
    my $count;
    my $body = io_from_getline sub {
        return if $count++ > 5;
        Coro::Timer::sleep 1;
        return time . "\n";
    };
 
    return [ 200, ['X-Foo' => 'bar'], $body ];
};