Select Code to Download

$VAR1 = 'Received: by mymailserver
    id <01C81A05.60F5A3EC@mymailserver>; Mon, 29 Oct 2007 09:26:18 +01
+00

MsgBS -->HASH(0x1e6bdb8)<--
Use of uninitialized value in concatenation (.) or string at C:\Dokume
+nte und Einstellungen\holzner.s\Eigene Dateien\perlmail\perlguard_gu_
+version.pl line 55.
...
cou
cou

#!/usr/bin/perl

...
else {
    print "No new message in the mailbox\n"
}