Hi. I'm working on a socket-communication program, trying to access my gmail account and I'm using the IO::Socket::SSL module. My problem is with the authentication. I added what i have so far

use IO::Socket::SSL;

$sock = IO::Socket::SSL->new( 
                PeerAddr => 'pop.gmail.com',
                PeerPort => 995,
                Proto    => 'tcp') || die "No socket!";
sysread($sock,$data,1024,0);
print "$data\n";
$use = "USER awqww@gmail.com\n";
print $sock $use;
sysread($sock,$ant,1024,0);
print $ant;
$pas = "PASS somepass\n";
print $sock $pas;
sysread($sock,$ant,1024,0);
print $ant;
[download]

The error i get is:-ERR AUTH Username and password not accepted. While i gave the correct username and pass. Can someone tell me a bit more about this situation. Thank you.