use LWP::UserAgent; 
my $ua = LWP::UserAgent->new(agent=>'Mozilla/4.0 (compatible; MSIE 5.23; Mac_PowerPC)');
my $response = $ua->get('http://www.google.com');
my $page = $response->content;
print HTML $page;