use Net::FTP;
my $ftp = Net::FTP->new("blah.com", Debug => 0);
$ftp->login('user','pass');

foreach $file (@filelist) {

$ftp-> put("$file") unless ($ftp-> fileexists($file));#fake code

}