Select Code to Download

#!/usr/bin/perl
use My::Module qw(testsub);
...
sub testsub { # "local" definition of subroutine
    return "local subroutine";
}

package My::Module;
BEGIN {
...
    return "module subroutine";
}
1;