#!/usr/bin/perl
use strict;
use Mail::IMAPClient;

my $client = Mail::IMAPClient->new(
    Server   => 'imap.gmail.com',
    User     => 'abc@gmail.com',
    Password => '**********',
    Ssl      => 1,
    Uid      => 1,
  );

$client->select("INBOX");
my @messages = $client->messages;

my $msgid = pop @messages;
    
my $text = $client->bodypart_string($msgid,1)
  or die "Could not get bodypart string: ", $client->LastError;
print $text;

$client->logout
    or die "Logout error: ", $client->LastError, "\n";