use LWP::UserAgent;
my $ua = LWP::UserAgent->new(visible=>1);
$ua->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1');
my $request = HTTP::Request->new(GET => $url);
my $response = $ua->request($request);
my $content = $response->content();