A sample of streaming by Mojolicious

gistfile1.pl

#!/usr/bin/env perl

=pod

A sample of streaming.
This sends dynamic contents on "Transfer-Encoding: chunked".

See also the source: t/mojolicious/longpolling_lite_app.t

=cut

use Mojolicious::Lite;

get '/' => sub {
    my $c   = shift;
    my $i   = 0;

    my $drain;
    $drain = sub {
        my $me = shift;
        return $me->finish if( $i >= 10 );
        sleep 1;
        my $chunk = sprintf '%d', $i++;
        $me->write_chunk($chunk, $drain);
    };
    $c->$drain;
};

app->start;