#!/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";