Select Code to Download

        my sub for_inc {
            my ($coderef, $filename) = @_;
...
        };

        my $for_inc_ref = \&for_inc;

 
my $for_inc_ref = sub 
    {
        my ($coderef, $filename) = @_;
        return \$source
    };