Select Code to Download

sub greet {
    my $name = shift;
...
}

greet('dev2000');

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

my $r = shift;
...

package Some::URL::Based::Package::Name;use Apache qw(exit);sub handle
+r {
#line 1 script.pl
...
...

}