ну гаврила спешал фор ю

#!usr/bin/perl

use Net::FTP;

$ftp = Net::FTP->new("genom.h10.ru", );

open file,'<ftp.txt'; # файл в котром хранятся твои акаунты к ftp
open goodd,'>good.txt';
while($lol=<file>)
{
$lol=~s/\n//;
($cifra,$llogin,$pass)=split(/;/,$lol); # разбираем

$ftp -> login($llogin,$pass) or goto(dava);
print goodd "$lol\n";
dava:
}

close(goodd);close(file);


ps-- и не хужже чем у undergraund =)