Select Code to Download

Connecting to google gmail now!
220 mx.google.com ESMTP q18sm34685365pog.9
250-mx.google.com at your service, [121.15.233.169]
250-SIZE 35651584
Usage: IO::Handle::error(handle) at C:/Perl/site/lib/IO/Socket/SSL.pm 
+line 611, <GEN0> line 3.

if(not IO::Socket::SSL::start_SSL($f,
        SSL_version    =>    "SSLv3 TLSv1")){
...
     print $line;
     print FH $line;