basic streaming(code by chiba-san https://gist.github.com/2785757) use strict; use warnings; my $app = sub { my $env = shift; return sub { my $responder = shift; my $writer = $responder->([ 200, []]); for ( 1..5 ) { $writer->write("hoge"); sleep 1; } $writer->close; }; }; $app; with AnyEvent use strict; use warnings; use utf8; use 5.010000; use AnyEvent; use Time::HiRes qw(sleep); my $i=0; sub { m