mod_perl

sub handler {
    my $r = shift;
    ...
}