#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket::SSL;
use Mail::IMAPClient;

my $client = Mail::IMAPClient->new(
    Server   => 'imap.gmail.com',
    Port     => 993,
    Ssl      =>  1,
    User     => 'whateverUser',
    Password => 'aG00dP455w0rd',
    Socket   => IO::Socket::SSL->new(       
        Proto    => 'tcp',
        PeerAddr => 'imap.gmail.com',
	    PeerPort => '993',
	    SSL_version => 'SSLv3',
	    SSL_verify_mode => 0),
);

die $! unless print "Connected\n";