Select Code to Download

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

my $utf8   = decode('MIME-Header', $header);
$header = encode('MIME-Header', $utf8);