#!/usr/bin/perl
use warnings;
use Net::FTP;

$ftp = Net::FTP->new("host", Debug => 1) || die "could not connect";
#qw(password) because my password has funky characters in it -- yours 
+should too ;-)
$ftp->login("user",qw(password)) || die "could not login";
$ftp->cwd('./test') || die "could not cwd";

foreach (<@ARGV>)
{
            $ftp->put($_) || die "could not put file $_";
}
$ftp->quit;
[download]

RT

Are you sure it's sending the files where you expect them to be sent? For instance, if you are sending the file /tmp/foo, that doesn't mean it will end up in /tmp/foo on the remote host. It'll get dumped in your home directory. You have to cd to the desired directory on the remote host before putting the file.

As for the output from the session into a log file, I'm not sure what you mean. There is no output to log, apart from what you print out yourself to a log file. Otherwise if you're interested in what happens when you set Debug=>1 in the new method, then you should take a look at Net::Cmd (from which Net::FTP inherits).
--
g r i n d e r

If no cwd is specified it should dump the files in the current directory. I added
$ftp->cwd("/path");
for clarity, and still, it says its successful but the files are not sent.

#!/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 also says it's successful but the files do not appear on the remote machine.