use Email::Folder;
my $dir = ".";
my $folder = Email::Folder->new($dir);
foreach my $message ( @{$folder->messages()})
{
    print $message->body();
}