use Net::Pop3;

open(BADWORDS, "E:/Dokumente/Windows_Scripting/badwords.txt") || die &#36!;
@badwords = <BADWORDS>;
close(BADWORDS);

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

foreach my &#36msgnr (keys %{&#36phash}) 
{
    my &#36msg = &#36pop3->get(&#36msgnr);
    my &#36next = 0;
    foreach my &#36line (@{ &#36msg }) 
    {
        foreach(@badwords)
        {
            if(&#36line =~ /&#36_/si)
            {
                print "DELETE Mail Nr. &#36msgnr..\n";
                &#36pop3->delete(&#36msgnr);
                &#36next = 1;
                last;
            }
            else {}
        }
        last if &#36next;
    }
}
&#36pop3->quit();

print "Ready..";