#!/usr/bin/perl
use LWP::UserAgent;
use strict;
my $url =
 "http://scholar.google.com/scholar?hl=en&lr=&q=machine+learning";

my $ua = LWP::UserAgent->new;
$ua->env_proxy;
$ua->agent("Mozilla/5.0 (Windows)");
my $response = $ua->get($url);
 
if ($response->is_success) {
     print $response->content;
} else {
   die $response->status_line;
}