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