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

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

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

#!/usr/bin/perl -w

use strict;
use Email::MIME;
use Net::POP3;
use Data::Dumper;
#my $file = 'Beispielnachricht.txt';
#my $file = 'multipart.txt';
#my $message = do { local( @ARGV, $/ ) = $file; <> };

my $host = '...';
my $user = ':::';
my $pw   = '---';
 
my $pop = Net::POP3->new($host) || die("Kein Kontakt zu $host. $!");
my $anzahl = $pop->login($user, $pw);
my $msgnums = $pop->list; # hashref of msgnum => size
my @msgids = keys %$msgnums;
my $msgid = shift(@msgids);
my $message = $pop->get($msgid);
my $messageall = join("", @$message);

if(my $parsed = Email::MIME->new($messageall)){
      my $absender = $parsed->header('from');
       my $subject = $parsed->header('subject');
       my @parts = $parsed->parts;
       my $parts = $parsed->parts;
       print "Absender: " . $absender . "\n";
       print "Betreff: $subject\n";
       print "Parts: $parts\n";
       for my $part (@parts){
               if(scalar @{$part->{'parts'}} > 0){
                       for my $part (@{$part->{'parts'}}){
                               #next if($part->content_type =~ m/text\/html/);
                               my $text .= $part->body;
                               print "Text: $text\n";
                       }
               }
       }
}