use Net::IMAP::Client;

$imap->login or die('Login failed: ' . $imap->last_error);

$imap->select('INBOX');

my $messages = $imap->search('ALL');

foreach my $msg (@$messages)
{
    my $data = $imap->get_rfc822_body($msg);
}