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;