$log = "/tmp/log \n";
$command = <<eod;
ftp $host << eof > $log;
user $user
password $passwd
put $spath[$i] $dpath[$i]
bye
eof
eod