sub greet {
    my $name = shift;
    print "Hello, $name\n";
}

greet('dev2000');

##</code><code>##

$_[0]->send_http_header('text/plain');
$_[0]->print("mod_perl rules!\n");

##</code><code>##

my $r = shift;
...

##</code><code>##

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

}