use LWP::UserAgent;
use HTTP::Request;

$username = "xxx";
$password = "xxx";

$url = 'https://adwords.google.com/select/TrafficEstimatorSandbox';
$url_login = 'login.userid='.$username.'&login.password='.$password;


my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new(POST => $url);
$request->content_type("application/x-www-form-urlencoded");
$request->content($url_login);
my $response = $ua->request($request); 

if ($response->is_success())
	{
    print $response->content;
}
else
	{
    print $response->status_line, " <URL:$url>\n";
	}