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.

##</code><code>##

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;