メールをパースするいいモジュールはありませんでしょうか？
ヘッダーだけでしたらMail::Headerで文句無しなのですが
添付ファイルを含めパースしてくれるものを探しています。
自分である程度の物は作れたのですが精度がイマイチです。

my $mail = parser(*MAIL);
print "題名:$mail->{header}->{subject}\n";
print "差出人:$mail->{header}->{from}\n";
for my $file_name (@{$mail->{attach}){
　print "---$file_name---\n"
　print $mail->show_file($file_name);
}

このような事を実現出来るものはありますでしょうか。