1use IO::Handle; 2 3my $app = sub { 4 my ($environ) = @_; 5 6 my $io = IO::Handle->new(); 7 8 return ['200', [], $io]; 9}; 10