добрый день

есть
location /check {
perl 'sub{
my $r=shift;
$r->send_http_header("plain/text");
$r->print("hello!");
return OK;
}';
}

при запросе /check в ерор логах:
2009/09/15 09:56:47 [error] 3801#0: *1 call_sv("sub{
my $r = shift;
$r->send_http_header("plain/text");
$r->print("hello!");
return OK;
}") failed: "Undefined subroutine &main::sub{
my $r = shift;
$r->send_http_header("plain/text");
$r->print("hello!");
return OK;
} called.", client: 127.0.0.1, server: test.ru, request: "GET /check
HTTP/1.1", host: "test.ru"


--
С уважением,
Domrachev mailto:Domrachev.Ivan@gmail.com