use Mail::IMAPClient;
use IO::Socket::SSL;
use Mail::IMAPClient::BodyStructure;
$sock = IO::Socket::SSL->new(
		PeerAddr => "imap.gmail.com",
		PeerPort => 993) or die $@;
$client = Mail::IMAPClient->new(
		Socket => $sock,
		User   => 'abc@gmail.com',
		Password => '*****');
$client->select("INBOX");
@messages = $client->messages;
$msg = pop @messages;
$obj = $client->get_bodystructure($msg);
$tekst = $client->bodypart_string($obj,0);
print $tekst;
$client->logout();