Help for this page
use IO::Socket::SSL; $socket = IO::Socket::SSL->new(PeerAddr=>"pop.mail.yahoo.com", ... print $socket "\n"; sysread ($socket,$ant,180000,0); print "$ant\n";
C:\test>perl yahoo.pl Verbonden met 188.125.68.106 op poort 995 ... by mx.google.com with ESMTPSA id 1sm114582823eeg.4.2013.12.06. +00