POP3でメールを落として、MboxParserでゴニョる

#!/usr/bin/perl

use strict;
use warnings;
use Mail::POP3Client;
use Mail::MboxParser::Mail;

my $user = "username";
my $pass = "password";
my $host = "example.jp";
my $ssl  = 1;

my $pop = new Mail::POP3Client( USER => $user,
                                PASSWORD  => $pass,
                                HOST      => $host,
                                USESSL    => $ssl,
                                DEBUG     => 0,
                                AUTH_MODE => 'PASS' );

for (my $i = 1; $i <= $pop->Count; $i++) {
    my $msg = Mail::MboxParser::Mail->new( [ $pop->Head($i) ],
                                           [ $pop->Body($i) ] );
    print $msg->header->{subject}, "\n";
#    $pop->Delete($i);
}

$pop->Close();

パスワードがブレーンのときは AUTH_MODE を PASS にする。あとは、http://d.hatena.ne.jp/chabom/20100617/1279259115 のようにメッセージをほげる。