Okay, now I am using res instead of req (I should have seen that). Now I get this message again (old node):

Sorry, we're unable to process this request. There are two possible ca
+uses 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.
[download]

My LWP::Debug gives me this about the cookies, if that helps:

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 cook
+ies
HTTP::Cookies::add_cookie_header: - checking cookie path=/select
HTTP::Cookies::add_cookie_header:  - checking cookie JSESSIONID=49d3ai
+dt74
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/ma
+in?cmd=CampaignManagement&campaignid=0&timeperiod=simple&timeperiod.s
+impletimeperiod=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
[download]

The only thing I can see "unusual" is two different "JSESSIONID" id's, one being set and read, and the other one being set again.
This is my latest code:

#!/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/m
+ain?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";
[download]

Michael Jensen
michael at inshift.com
http://www.inshift.com