gistfile1.txt

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;