how to access to gmail with user and password ,i write something but it not work
-
#!/usr/bin/perl
-
-
use CGI;
-
use LWP::UserAgent;
-
use strict;
-
-
print "Content-type: text/html\n\n";
-
-
# Create a new user agent for HTTP request
-
my $ua = LWP::UserAgent->new( );
-
-
my $URL = 'https://www.google.com/accounts/ServiceLoginAuth?service=mail'
-
-
# Create HTTP request object
-
my $req = HTTP::Request->new( POST => $URL);
-
-
# Authenticate the user
-
$req->authorization_basic( $user, $pass);
-
-
