use IO::Socket::SSL;
$socket = IO::Socket::SSL->new(PeerAddr=>"pop.mail.yahoo.com",
                               PeerPort=>995,
							  ) || die $SSL_ERROR; 
$host = $socket->peerhost();
$port = $socket->peerport();
print "Verbonden met $host op poort $port\n";
sysread($socket,$data,1024);
print $data;
$groet = "CAPA\n";
print $groet;
print $socket $groet;
sysread($socket,$ant,1024,0),;
print "$ant\n";
$login = 'USER ####@yahoo.com\n';
print "$login\n";
print $socket "$login\n";
sysread($socket,$ant,1024,0);
print "$ant\n";
print $socket "PASS somepass\n";
sysread($socket,$ant,180000,0);
print $ant;
print $socket "TOP 1 0\n";
sysread($socket,$ant,180000,0);
print "$ant\n";
print $socket "\n";
sysread ($socket,$ant,180000,0);
print "$ant\n";