use Net::SOCKS;
use Net::SSLeay;
use IO::Socket::INET;
use IO::Socket::SSL;
use MIME::Base64 qw[encode_base64 decode_base64];
use Digest::HMAC_MD5 qw[hmac_md5_hex];


my $sock = new Net::SOCKS(socks_addr => '211.239.124.76',
                socks_port =>9188,
                #user_id => 'the_user',
                #user_password => 'the_password',
                #force_nonanonymous => 0,
                protocol_version => 5);
print "Cannot establish connection using socks!\n" if !$sock;
print "Connecting to google gmail now!\n";
my $f= $sock->connect(peer_addr => 'smtp.gmail.com',
 peer_port => 587);

 open FH, ">:utf8","socks.txt";
 
 	my $line=<$f>;
 	print $line ;
 	print FH $line;

 	print $f "EHLO localhost\n";
 	$line=<$f>;
 	print $line;
 	print FH $line;

 	print $f "StartTLS\n";
 	$line=<$f>;
 	print $line;
 	print FH $line;
#What is next?...