use LWP;
use HTTP::Request::Common;
use HTTP::Cookies;
 
my $agent=LWP::UserAgent-> new;
$agent-> cookie_jar(HTTP::Cookies->new);
 
$url="https://adwords.google.com/select/TrafficEstimatorSandbox";

$request=POST ($url, Content=> ["login.userid "=>"xxx", "login.password"=> "xxx"]);

$response=$agent-> request($request);
 
print "$response-> code\n";
$response-> is_success or die " $response->message \n";
 
print $response-> content;