All you need is:

my $entity = $parser->parse_data($message);
my $header = $entity->head();

my $subject = Encode::decode('MIME-Header', $header->get('subject'));
[download]

I'm not sure why it took nearly 300 lines of code to ask the question...