Select Code to Download

my $ftp = Net::FTP->new($_[0], Debug => 1) or die "Cannot connect to $
+_[0]";
$ftp->login($_[1],$_[2]) or die $login_failed_message;
...
$ftp->put($_[3]) or die "get failed ", $ftp->message;

my $ftp_message = 'n/a';

...
} else {
   ...
}

{ # temporarily change Net::Cmd::debug_print
...
  print "Log:\n$log_buffer\n";
} # recovers previous behaviour of Net::Cmd::debug_print