my $ua = LWP::UserAgent->new();
$ua->agent("google.com");

my $req = HTTP::Request->new(GET => $uri);
$req->header('Referer', 'http://www.google.com');

$ua->request($req);
[download]