Index: etch/contrib/check_email_loop.pl
===================================================================
--- etch/contrib/check_email_loop.pl    (revision 172)
+++ etch/contrib/check_email_loop.pl    (working copy)
@@ -112,6 +112,7 @@
 # creating new serial id
 my $serial = time();
 $serial = "ID#" . $serial . "#$$";
+push @messageids, $serial;


 # sending new ping email
@@ -136,6 +137,7 @@
 # no the interessting part: let's if they are receiving ;-)

 $pop = Net::POP3->new( $pophost,
+                Debug=>$debug,
                 Timeout=>$poptimeout)
        || nsexit("POP3 connect timeout (>$poptimeout s, host: $pophost)",'CRITICAL');

@@ -154,6 +156,7 @@
   @msglines = @{$pop->top($msgcount,1)};
   for (my $i=0; $i < scalar @messageids; $i++) {
     if (messagematchsid(\@msglines,$messageids[$i])) {
+      warn "Found message $messageids[$i]\n" if $debug;
       $matchcount++;
       # newest received mail than the others, ok remeber id.
       if (!defined $newestid) {
@@ -177,6 +180,7 @@
        chomp @msgsubject;
        # Scan Subject if email is an Email-Ping. In fact we match and delete also successfully retrieved messages here again.
        if (!defined $keeporphaned && $msgsubject[0] =~ /E-Mail Ping \[/) {
+               warn "Deleting orphan: $msgsubject[0]\n";
            $pop->delete($msgcount);  # remove E-Mail from POP3 server
        }

@@ -200,10 +204,7 @@
 }

 # Write list to id-Database
-foreach my $id (@messageids) {
-  print STATF  "$id\n";
-}
-print STATF "$serial\n";     # remember send mail of this session
+print STATF map { "$_\n" } @messageids;
 close STATF;

 # ok - count lost and pending mails;