#!/usr/bin/perl -c
use strict;
use warnings;
my $handler = sub {
return [200, ["Content-Type" => "text/plain", "Content-Length" => 5], ["hello"]];
};
#!/usr/bin/perl -c
use strict;
use warnings;
my $handler = sub {
return [200, ["Content-Type" => "text/plain", "Content-Length" => 5], ["hello"]];
};