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.
[download]

Above is the reponse I got after I use IO::Socket::SSL::start_SSL method on the socket connected through a socks5 server. Code added are as below

if(not IO::Socket::SSL::start_SSL($f,
        SSL_version    =>    "SSLv3 TLSv1")){
        die "Couldn't start TLS: \n" . IO::Socket::SSL::errstr ."\n";
    }
    print $f "EHLO localhost\n";
    $line=<$f>;
     print $line;
     print FH $line;
     
     print $f "AUTH LOGIN\n";
    $line=<$f>;
     print $line;
     print FH $line;
[download]

Any ideas? Thank you very much!