Select Code to Download

my @files = <*.txt>;

{
    local @ARGV = <*.txt>;
...
        // $_ contains the lines of the files one at a time; for each 
+file in turn
    }
}

{ 
    local @ARGV = <*.txt>; 
...
        chomp; print $ARGV, '(', $., '):', $_; 
    } 
}