Кто может обьясните в чем проблема. От скрипта нужно чтобы он выводил "yes" в случае если логин и пас приняты сервером а "no" если логин и пароль неверны
конструкцию с die не предлогать
#!/usr/bin/perl
use Net::FTP;
sub ftpcon
{
$ftp_serv = $_[0];
$user = $_[1];
$pass = $_[2];
$ftp = Net::FTP->new($ftp_serv) || die "No connecting to Ftp server[ $ftp_serv ]";
if($ftp->login($user,$pass))
{
print "yes"
}
else
{print "no"}
}
ftpcon("ftp.server.ru","ftp","ftp");