Select Code to Download

package Your::Package;

package My::Module;

use Exporter qw(import);
@EXPORT_OK = qw(sub names here);

package My::Package;

...
        print $lines;
    }
}

use strict;
use warnings;
...
open my $file, '<', shift;

print_lines($file);