Select Code to Download

#!/usr/bin/perl

...
#

$folder->close;

D:\temp\MailBox\Mail-Box-2.051\examples>perl open.pl c:\pmail\mbox\FOL
+03E97.PMM

Mail folder c:\pmail\mbox\FOL03E97.PMM contains 0 messages:

D:\temp\MailBox\Mail-Box-2.051\examples>perl open.pl c:\pmail\mbox\unx
+05e52.mbx

...
  6. Deposit clearance
  7. RE: September statement
  8. September statement

if (! exists $MailList->{$addr}) {
    # ok, we haven't seen this Email address yet
...

    # and do other things
    }