Select Code to Download

my $req = POST 'https://adwords.google.com/select/main',
             ['login.userid'       => 'test@test.com', 
...

my $req = HTTP::Request->new(GET=>'https://adwords.google.com/select/m
+ain?cmd=CampaignManagement&campaignid=0&timeperiod=simple&timeperiod.
+simpletimeperiod=today');
$req->referer("https://adwords.google.com/select/main");

Client-SSL-Warning: Peer certificate not verified

Your session has expired. Please return to the AdWords Select homepage
+ and login again. 

(This is a security precaution to prevent someone from gaining access 
+to your account if you forget to log-out.)