Select Code to Download

open (TEST,"test") || die $!;
mysub (TEST);
...
my $txt = <$fh>;
print $txt;
}

package mypac;
sub mysub {
...
package main;
open (TEST,"test") || die $!;
mypac::mysub ("main::TEST");