Bareword "login" not allowed while "strict subs" in use at (eval 28) line 18.
Bareword "login" not allowed while "strict subs" in use at (eval 28) line 18.

##</code><code>##

HTTP/1.1 200 OK Connection: close Date: Fri, 14 Jun 2002 06:57:47 
GMT Server: stronghold apache C2NetEU tomcat/1.0 
Content-Type: text/html; charset=UTF-8 
Client-Date: Fri, 14 Jun 2002 07:00:46 GMT 
Client-Response-Num: 1 
Client-SSL-Cert-Issuer: /C=ZA/ST=Western Cape/L=Cape Town/O=Thawte Consulting cc/OU=Certification Services Division/CN=Thawte Server CA/Email=server-certs@thawte.com 
Client-SSL-Cert-Subject: /C=US/ST=California/L=Mountain View/O=Google Inc/CN=adwords.google.com 
Client-SSL-Cipher: EDH-RSA-DES-CBC3-SHA 
Client-SSL-Warning: Peer certificate not verified 
Client-Transfer-Encoding: chunked Link: ; rel="stylesheet" Servlet-Engine: Tomcat Web Server/3.2 (final) (JSP 1.1; Servlet 2.2; Java 1.3.1_02; Linux 2.4.18-smp i386; java.vendor=Sun Microsystems Inc.) 
Set-Cookie: JSESSIONID=q93xd1cc51;Path=/select 
Set-Cookie2: JSESSIONID=q93xd1cc51;Version=1;Discard;Path="/select" 
Title: Google Adwords
   AdWords Select™ - It's All About Results™  Contact Us - Help  

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.

##</code><code>##

#!/usr/lib/perl -w

#use strict;

use LWP::UserAgent;
use Crypt::SSLeay;
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP::Simple;

my $ua = LWP::UserAgent->new;

$ua->cookie_jar(HTTP::Cookies->new(file => 'cookie_jar', autosave =>1));

push @{ $ua->requests_redirectable }, 'POST';

my $request = $ua->request(POST "https://adwords.google.com/select/main",
                            {
                             login.userid => 'test@test.com',
                             login.password => 'testabc',
							 cmd => 'LoginValidation',
                             login => 'Login',
                            });
$b = $request->as_string;
print "$b\n";