Select Code to Download

@ARGV = glob('*.txt');

...
   # $ARGV contains the current file name
   print "$ARGV $_";
}