use strict;
use warnings;
use Email::MIME;
use Mail::POP3Client;

my $pop = new Mail::POP3Client(
    USER => "my\@email.address",
    PASSWORD => "passwordxxxxx",
    HOST     => "mail.mydomain.com"
);

for( my $i = 1; $i <= $pop->Count(); $i++)
{
  my $body = $pop->Body($i);
  my $parsed = Email::MIME->new($body);
  my $decoded = $parsed->body;
  print "<p>$decoded<p><hr>";
}