package Some::URL::Based::Package::Name;use Apache qw(exit);sub handler {
#line 1 script.pl
my $r = shift;
...

}