Current code:

use Net::FTP;
my $ftp = Net::FTP->new("host.com");
$ftp->login('blah','blah');
$ftp-> ascii();
foreach (@files) {
	$ftp-> put($_);
}
$ftp-> quit();