Select Code to Download

    tie @file, 'Tie::File', $filepath;
    for (@file) {
        print "$_\n";
    }
    print "line2 = $file[1]";

recsep => "\r\n"

package CodeSet;
use strict;
...
    print "line2 = $file[1]\n";  
}
1;

sub RunCodeSets {
    my $self = shift;
...
        $_->Process;
    }
}