stream.psgi

use strict;
use warnings;
use utf8;

use AnyEvent;
use Plack::Builder;
use IO::Handle::Util qw(io_from_getline);

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

    my $body = io_from_getline sub {
        sleep 1;
        return time . "hi!\n";
    };

    return [ 200, [ "Content-Type" => 'text/plain', ], $body ];
}