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

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