Вопрос по Net::FTP

[DNK]

Кто может обьясните в чем проблема. От скрипта нужно чтобы он выводил "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");

[Skif]

Все нормально, чудесно отрабатывает. Не вижу проблемы. Может есть смысл переставить сам модуль?

[Алан]

Честно говоря я тоже проблеммы не вижу... вроде всё норм написано А зачем вообще сайты взламывать?

[DNK]

Алан а ты не пробовал?

[Алан]

пробывал смысла мало кайфа много

[NeoNox]

[moderator]
Алан, ветка для флейма находится гораздо ниже.
Предупреждение.

[vladsu]

$ftp->login($user,$pass)) or die "no", $ftp->message;
print "yes"

И не надо велосипедов.