$ftp2=Net::FTP->new($host2,Port=>$port,Timeout=>60) or die "Cannot connect2 to $host2: $@";
$ftp2->login($user2,$pass2) or die "ftp2: Cannot login ", $ftp->message;
$ftp2->binary or die "Couldn't change mode2 to binary!\n";

##</code><code>##

$ftp2->put($file) or my $problem2 = 1;