Select Code to Download

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

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

<% $txt %>
<%INIT>
...
My::Module->import(qw(testsub));
my $txt = testsub();
</%INIT>

PerlInitHandler Apache::Reload
PerlSetVar ReloadAll Off

use Apache::Reload;