open(IN,"words.txt")||die;
while(<IN>)
{
  chomp;
  my(undef,$login,$password)=split(':',$_);
  my $ftp=Net::Ftp->new() # не помню аргументы наизусть(
  if($ftp->login($login,$password)) { exit print $_."\n" }
}