#!/usr/bin/perl
use Net::FTP;
foreach (<@ARGV>)
{  
	$ftp = Net::FTP->new("HOST", Debug => 0);
	$ftp->login("login","password");  
	$ftp->put($_); 
}
$ftp->quit;