Emergency UNIX and Linux Support

use Net::FTP;

my @serverip=qw/serverip1 serverip2/;
$fileextension="*.txt";

foreach my $serverip(@serverip){
my $ftp = Net::FTP->new($serverip,Debug=>0)
or die "can't connect";

$ftp->login("username","password")
or die "cannot login";
$ftp->cwd("/the ftp directory")
or die "cannot change directory";

foreach my $file($ftp->ls($fileextension)){
$ftp->get($file) or die "get failed", $ftp->message;
printf("done for $file\n");
}
$ftp->quit;
}

FTP_HOST="ftp_server_hostname"
FTP_USER="remote_username"
FTP_PASS="remote_password"
FTP_PATH="/remote_pathname"        # Remote directory
LCK_IN_DIR="/local_directory"     # Local directory
#
ftp -i -n <<EOF
open ${FTP_HOST}
user ${FTP_USER} ${FTP_PASS}
cd ${FTP_PATH}
ascii
lcd ${LCK_IN_DIR}
mget \*.txt
quit
EOF

Local directory now /tmp
*.txt: No such file or directory