Try this:

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

This will go thru the parameters given at the command line (like "./ftp.pl file1 file2 file3") and FTP them.
I am not sure if any of the Net::FTP functions will return the output from the FTP server...