Парсер письма

#!/usr/bin/perl -w
#use strict;
use warnings;
use MIME::Parser;
use Data::Dumper;
use Mail::Box;
use Mail::Box::Manager;
use Mail::Box::Mbox;


my $MAILBOX = $ENV{HOME}."/.maildir/";

-d $MAILBOX or (print "No mail\n" and exit);
my $mgr = Mail::Box::Manager->new;
my $mbox=$mgr->open( folder => $MAILBOX, access => 'rw');

foreach my $message ($mbox->messages) {
    printf "Subj: [%s]\n", $message->subject;
    printf "From: [%s]\n", ($message->from)[0]->address;
    printf "Body: [%s]\n", $message->body;
    $message->delete;
}

$mbox->close();

┌[~]
└> apt-cache show mailutils
Package: mailutils
<...>
Section: mail
Priority: optional
Homepage: http://www.gnu.org/software/mailutils/
Description: GNU mailutils utilities for handling mail
 This package contains the GNU mailutils versions of dotlock, frm, from
 guimb, mail, messages, mimeview, movemail, readmsg and sieve. They are
 capable of speaking POP3, IMAP, mbox, MH and Maildir.
 .
  dotlock -- lock mail spool files.
  frm -- display From: lines.
  from -- display from and subject.
  guimb -- process the contents of the specified mailboxes using a Scheme
           program or expression.
  mail -- the standard /bin/mail interface, mail sender and reader.
  messages -- count the number of messages in a mailbox.
  mimeview -- display files, using mailcap mechanism.
  movemail -- move messages across mailboxes.
  readmsg -- extract selected messages from a mailbox.
  sieve -- a mail filtering tool.