Email::MIME::MobileJP::Parserでパースした時のヘッダ部を取得する

以下の様な感じ。

# メールをパース                                                                                                                        
my $mail = Email::MIME::MobileJP::Parser->new($mail_str);

my %headers = @{ $mail->mail->{header}->{headers} };