Select Code to Download

open (my $fh, '<' ,$filename) or die "ERROR: could not open $filename:
+ $!";
while (<>) {

while (<$fh>) {