use Net::Pop3;

open(BADWORDS, "E:/Dokumente/Windows_Scripting/badwords.txt") || die $!;
	while(<BADWORDS>) 
	{
		push @badwords, $_;
	}
close(BADWORDS);

print "Try login..\n";
my $pop3 = Net::POP3->new('pop.gmx.net', Timeout => 60);
   $pop3->login('blablubb@gmx.de', 'passwort');
print "Logged in..\n";
print "Check Mails..\n";
my $phash = $pop3->list();

foreach my $msgnr (keys %{$phash}) 
{
	my $msg = $pop3->get($msgnr);
	foreach my $line (@{ $msg }) 
	{ 
		foreach(@badwords)
		{

			if($line =~/$_/si)
			{ 
				print "DELETE Mail Nr. $msgnr..\n";
				$pop3->delete($msgnr);
			}
			else {}
		}
	}
}
$pop3->quit();

print "Ready..";