Select Code to Download

open my $inFile, '<', $filename or die "Failed to open $filename: $!\n
+";

...
    chomp $record;
    ...
}

my @lines = split "\n", $record;