1my $app = sub { 2 my ($environ) = @_; 3 4 open my $io, '<file'; 5 6 return ['200', ['Content-Length' => 5], $io]; 7}; 8