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";

##</code><code>##

C:\test>perl yahoo.pl
Verbonden met 188.125.68.106 op poort 995
+OK hello from popgate-0.8.0.504347 pop003.mail.ir2.yahoo.com
CAPA
+OK CAPA list follows
IMPLEMENTATION popgate-0.8.0.504347
XOIP
EXPIRE-NEVER
PIPELINING
RESP-CODES
TOP
UIDL
USER
SASL LOGIN PLAIN
.

USER someone@yahoo.com\n
+OK password required.

+OK maildrop ready, 1 message (4233 octets) (145818)
+OK 4232 octets
</p><p>
X-Apparently-To: someone@yahoo.com via 98.139.211.186; Fri, 06 Dec 2013 00:2
4:36 -0800
Received-SPF: pass (domain of gmail.com designates 209.85.215.178 as permitted s
ender)
X-YMailISG: 1DwuhyIWLDsYnXAjDP3zTFywGOvLRkp5rVaTKdCszQe3BT9Y
 dtmwkRYqMPDguvByKgpZlh2z10rOuTKWD5fgKO5HQv6hhVBOyoyST28n_sfV
 b4WnW0qHCouf8.LmyJxEokLWLYH0VD1PHrpGFlW5JHlBU4vhzpJLYrM_lYy8
 Ny9AApkv3W1CDGO4KSfqSrKm3BcV8A2m.p9aIKoKNz7Ywb8FmVoLi8Z8eTTy
 FGq4.pElwSKL4L4V0GU9vPXTAVMacBsCYgKMG16NvnBGOkvK4SOWlT013H44
 Fpj6KNFJ_jDCwp5uwjs8tydbnnO.S0AvgknGXntf5HM85cs2p0Lt2YyM66DT
 khrkvBttZi.vYyQ8oaAh5.F6K8HA8NrBc7fiF840AT24uJkFSZe5OXAiDHXw
 uKN9Uf2emgqUgNJj17pz1H3HEdioAG_dOOuowoD6zXM_p0OvKkTopJqMCG.Q
 0xcNK5nB3w4pLQGs9yVCILjb2NesQMVQOHvHeNvf.IJ57jfc5RSbz_PIr8h1
 FCQQurM9UebGInPpqfubQa9s2l05ggkaNZRsjDIWOxpQsU2y7aY4XSDXZeug
 mYhrpH3ZLzPectka_2mzSoQFgVOdmTX4EPTNCtjxY7G6SetGCS.WA9rHD9Dd
 XAC.E5HCRH7ztteP50c6HT_M6N5jQSvS87OeBSaXl52IghOFE3nLZpqgeneQ
 2u29788JGUELeitvNIzUD1XjvS2T_43ELyiSySZV3AMDp51d6KECMu3wIXyX
 6n6cx9LgzRHFI3EQHkuQeF30grNPo9gHIBqJClYYeMX9Gel74Qm7IKrxnhm7
 wiiQPM7nHgqoWBoFjNw3tFrFH4j0TLuw2_zGfTc_lU6tlj3K9EMoci0fN2kj
 yM6jHgE0.KFBmXrmG8VXhH2ZewSelbwjuXP47q6W1o1WFkRdGmRBQBnllnSe
 crW03.LK_HIpMLipB0c9g996sD4vjSzbYjY4tyKKnqkiuGDBLSpqk6g154Hi
 vXqsqydTdIAwe3OMTAHESpSTA6GTI4TYQkY0p8FhNOJZNjGOox8LkEaU16Wt
 Okev.Hk5Ar.UOPsD_VsJzX.czUD6aA8nVLMpd.e7OV.sW6Ar9Gr3U4IOzL_V
 Lxzom7yAZ26U7N6lneE3aNpWioAEdXt398_t.C01PyKMuEcws1YnPX8nV66H
 iT8jJVLz0yetBfEhbklu8kid_43uLjiZ9GdNalbMILpQLyXxqCTNmBN6EtzI
 .YxuHO5n7Rv284Up3nZ0Jb4-
X-Originating-IP: [209.85.215.178]
Authentication-Results: mta1046.mail.gq1.yahoo.com  from=gmail.com; domainkeys=n
eutral (no sig);  from=gmail.com; dkim=pass (ok)
Received: from 127.0.0.1  (EHLO mail-ea0-f178.google.com) (209.85.215.178)
  by mta1046.mail.gq1.yahoo.com with SMTP; Fri, 06 Dec 2013 00:24:36 -0800
Received: by mail-ea0-f178.google.com with SMTP id d10so141291eaj.9
        for <someone@yahoo.com>; Fri, 06 Dec 2013 00:24:35 -0800 (PST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
        d=gmail.com; s=20120113;
        h=message-id:from:to:subject:date:mime-version:content-type;
        bh=hGsfaQq+Ti+eYfDhSTX3KmGXDCXmQWrsTkhlZ1R0d3g=;
        b=dwkZHh2YGXeYsGOZ7I7jj90fM9dfybDE3HZfopRsQx0mhtjFqQql3ayenarku+JFK4
         xyMOOgP59/oIVo7Z9KHzIvPZUxr9rfq0t3wcyXpw/Q1iUreGowJQ5OH5LKnT9YBj8W3e
         JqJaRk6GZlbyrYoL2hRRAqAct2Whx3vhxSegOVP0Z22IJyEz7p5hFzmbWTFZ0w59Xy2C
         Uuzc071SHAsnmqRIEPBjeEl6yU/twZveVS8g+dA02qBu6g84RFynpo4feEQq/yxcwl5K
         NYttR0hkjXGMFiVlcAws19pabzvY5RarPvaTjQbESsKHnxZAVetUIwVfP81SxHgGMCaC
         nXUA==
X-Received: by 10.15.52.73 with SMTP id o49mr1563331eew.60.1386318275136;
        Fri, 06 Dec 2013 00:24:35 -0800 (PST)
Received: from privec5f51620e (53520499.cm-6-3a.dynamic.ziggo.nl. [83.82.4.153])

        by mx.google.com with ESMTPSA id 1sm114582823eeg.4.2013.12.06.00