use IO::Socket::SSL;

$sock = IO::Socket::SSL->new( 
                PeerAddr => 'pop.gmail.com',
                PeerPort => 995,
                Proto    => 'tcp') || die "No socket!";
sysread($sock,$data,1024,0);
print "$data\n";
$use = "USER awqww@gmail.com\n";
print $sock $use;
sysread($sock,$ant,1024,0);
print $ant;
$pas = "PASS somepass\n";
print $sock $pas;
sysread($sock,$ant,1024,0);
print $ant;