#!/usr/bin/perl -w
use Net::FTP;
use strict;

my $hostname = 'user defined';
my $username = 'user defined';
my $password = 'user defined';
my $home = 'user defined';
my $debug = 5;
 
open(FilesToGet, "FilesToGet.txt") 
  or die "can't open FilesToGet.txt: $!";
my $ftp = Net::FTP->new($hostname);
$ftp->login($username, $password);
$ftp->cwd($home);
while (<FilesToGet>) {
  print STDERR "Getting $_" if $debug > 3;
  chomp;
  $ftp->get($_);
}
$ftp->quit;