Select Code to Download

for (<*.txt>) {
    open my $fh, '<', $_ or die "Can't open $_: $!";

...
    print "$_: $record\n";
    close $fh;
}