#!/usr/bin/perl

use Net::FTP;

@arrayOfFiles = qw/ testfile1.txt testfile2.txt testfile3.txt testfile4.txt /;


$ftp = Net::FTP->new("XXX.XXX.XXX.XXX", Debug => 0) or die "Could not connect: $@\n";
$ftp->login("Macaroni","password");
$ftp->cwd("Desktop/DownloadableFiles");
$ftp->ascii();
foreach $getthisfile (@arrayOfFiles) {
print $getthisfile;
$ftp->get("$getthisfile");
}
$ftp->quit;

system("cat @arrayOfFiles > catfiles.txt");