#!/usr/bin/perl

use IO::Socket::SSL;

my $socket = IO::Socket::SSL->new( PeerAddr => 'pop.gmail.com',
                                     PeerPort => 993,
                                     Proto    => 'tcp') || die "No socket!";

exit;