Select Code to Download

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

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