# foreach $file (@list)
#{
$log = "log";
$command = <<eod;
ftp -nv $rem_host << eof > $log;
user $rem_user $rem_passwd
put $file $ftp_dest_path
bye
eof
eod
system($command);