sub connectGMail
{
	my $socket = IO::Socket::SSL->new(  
	   PeerAddr => 'imap.gmail.com',  
	   PeerPort => 993,
	   SSL_verify_mode => SSL_VERIFY_NONE
	)  
	or die "socket(): $@";  
	
	my $client = Mail::IMAPClient->new
	(
		User     => 'whateverUser',
		Password => 'aG00dP455w0rd',
		Ssl      =>  1,
		Socket   => $socket
	)
	or die "Cannot connect 	($@)\n";
	return $client;
}