Select Code to Download

BEGIN { $^I = ".tmp"; }
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
...
    close ARGV if eof;
}
-e syntax OK

my @ARGV = glob("*.txt");
foreach my $ARGV {

use cwd
my $dir = cwd()
foreach my $files (global("$dir/*.txt")) {