OK, so is this better ?

#!/usr/bin/perl

package switcher_test;
use nginx;

use Sys::Syslog;

my $facility = 'local2';

sub handler {
my $r = shift;

return $r->has_request_body(\& test);

}

sub test {
my $r = shift;
if ($r->request_body =~ /.*test.*/) { return 3 };
openlog('switcher', 'ndelay', $facility);
syslog(LOG_DEBUG, 'request_body: '.$r->request_body);
syslog(LOG_DEBUG, 'request_body_file: '.$r->request_body_file);
return 4;
}

1;
__END__


It still doesn't work this way.