use strict;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new( autocheck => 1 );

$mech->get( 'https://adwords.google.com/select/TrafficEstimatorSandbox' );

$mech->success()	||	die"$mech->status()";
print $mech->content;