Perl で google trendsに自動ログインするコードを書きたいのですがうまく行きません。

CPANモジュールにもそれらしいのはみあたらず...
google trendsにアクセスし、検索を行い、結果出力される
CSVファイルをダウンロードするコードを作りたいと思っています。
- http://www.google.com/trends?q=aaa


下記みたいなイメージだと思っているのですが...

どなたか助けて頂けませんでしょうか...
---------------------------------------
use strict;
use warnings;
use Data::Dumper;
use DBI;
use WWW::Mechanize;

# Google Login
my $url = "https://www.google.com/accounts/ServiceLoginAuth";
my $username = 'uenoyama718@gmail.com';
my $password = 'hakusan';

my $mech3 = WWW::Mechanize->new();
$mech3->cookie_jar(HTTP::Cookies->new());
$mech3->get($url);
$mech3->form_number(1);
$mech3->field(Email => $username);
$mech3->field(Passwd => $password);
$mech3->click();
:


以下は参考
# get csv file
my @companis = ...
foreach my $company (@companies) {
my $url2 = 'http://www.google.com/trends/viz?q=' . $company . '&graph=all_csv&sa=N';
$mech2->get($url2);