use HTTP::Server::Simple::PSGI;
my $app = sub {
    my $env = shift;
    return sub {
        my $responder = shift;
        my $writer = $responder->([ 200, [ 'Content-Type' => 'text/plain' ]]);
        my $n = 0;
        $writer->write($n);
        $n++;
        sleep 1;
        $writer->write($n);
        $n++;
        sleep 1;
        $writer->write($n);
        $n++;
        sleep 1;
        $writer->write($n);
        $n++;

    };
};
my $server = HTTP::Server::Simple::PSGI->new('8080');
$server->app($app);
$server->host('127.0.0.1');
$server->run();