my $message = $pop->get($msgid);
my $messageall = join("", @$message);

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