| Current Path : /usr/share/doc/perl-Test-LWP-UserAgent/examples/ |
| Current File : //usr/share/doc/perl-Test-LWP-UserAgent/examples/myapp.psgi |
use strict;
use warnings;
sub {
my $env = shift;
return [
200,
[ 'Content-Type' => 'text/plain' ],
[ 'You sent me the path ' . $env->{PATH_INFO} . '.' ],
];
}