if(my $parsed = Email::MIME->new(@$message)){