Sorry, we're unable to process this request. There are two possible causes for this error:
You accessed this page via a bookmark instead of entering through the AdWords Select homepage
You have disabled cookies in your browser.
####
LWP::Protocol::collect: read 1019 bytes
LWP::Protocol::collect: read 429 bytes
LWP::Protocol::collect: read 1019 bytes
LWP::Protocol::collect: read 255 bytes
HTTP::Cookies::extract_cookies: Set cookie JSESSIONID => 49d3aidt74
LWP::UserAgent::request: Simple response: OK
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking adwords.google.com for cookies
HTTP::Cookies::add_cookie_header: - checking cookie path=/select
HTTP::Cookies::add_cookie_header: - checking cookie JSESSIONID=49d3aidt74
HTTP::Cookies::add_cookie_header: it's a match
HTTP::Cookies::add_cookie_header: Checking .google.com for cookies
HTTP::Cookies::add_cookie_header: Checking google.com for cookies
HTTP::Cookies::add_cookie_header: Checking .com for cookies
LWP::UserAgent::send_request: GET https://adwords.google.com/select/main?cmd=CampaignManagement&campaignid=0&timeperiod=simple&timeperiod.simpletimeperiod=today
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 1019 bytes
LWP::Protocol::collect: read 1648 bytes
HTTP::Cookies::extract_cookies: Set cookie JSESSIONID => 4iwdeedt77
LWP::UserAgent::request: Simple response: OK
####
#!/usr/lib/perl -w
use strict;
use LWP::UserAgent;
use Crypt::SSLeay;
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP::Simple;
use LWP::Debug qw(+);
my $ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file => "cookie_jar", autosave => 1));
$ua->timeout(500);
my $req = POST 'https://adwords.google.com/select/main',
['login.userid' => 'test@test.com',
'login.password' => 'testabc',
'cmd' => 'LoginValidation',
'login' => 'Login'
];
my $res = $ua->request($req);
unless ($res->is_success) {
print "Login Failed: : ". $res->status_line . "\n";
return 0;
}
my $b = $res->as_string;
print "\n\n\nThe 1st result is:\n$b\n";
my $req = HTTP::Request->new(GET=>'https://adwords.google.com/select/main?cmd=CampaignManagement&campaignid=0&timeperiod=simple&timeperiod.simpletimeperiod=today');
my $res = $ua->request($req);
my $c = $res->content;
print "\n\n\nThe 2nd result is:\n$c\n";