Select Code to Download

use strict;
use warnings;
...
        return $c
    }
}

use strict;
use warnings;
...
    open my $FH, "<", $file or die "could not open $file $!";
    sub {<$FH>; }
}