#!/usr/local/bin/perl

use Mail::IMAPClient;

my $client = Mail::IMAPClient->new(
 Server   => 'imap.gmail.com',
 Port     => 993,
 Ssl      => 1,
 User     => 'foo@gmail.com',
 Password => 'foobar',
 )
 or die "new(): $@";

print "I'm authenticated\n" if $client->IsAuthenticated();