Select Code to Download

open (INFILE, '<', 'textfile.txt');
while (<INFILE>)
...
  print "$_\n";
}
close (INFILE);