Select Code to Download

open(FilesToGet, "FilesToGet.txt") 
  or die "can't open FilesToGet.txt: $!";
while (<FilesToGet>) {

$TheFile = $_;                         
    chomp($TheFile);                 
    $INFILE = $TheFile;

chomp;
$ftp->get($_);

#!/usr/bin/perl -w
use Net::FTP;
...
  $ftp->get($_);
}
$ftp->quit;