9 lines
123 B
Perl
9 lines
123 B
Perl
use IO::Handle;
|
|
|
|
my $app = sub {
|
|
my ($environ) = @_;
|
|
|
|
my $io = IO::Handle->new();
|
|
|
|
return ['200', [], $io];
|
|
};
|