Yes, this is true. Google does not like these things. However I do have a small script that uses GET method that could be of some use to the person who asked the question. Use it only for learning and as
smitz said, have a look at Google API.
use URI;
use LWP::UserAgent;
my $what_i_want_to_find = 'perl monks';
$ua = LWP::UserAgent->new;
# google doesn't like it when user agent is libwww perl, so
# I change it to Mozilla/5.0
$ua->agent('Mozilla/5.0');
my $uri = URI::new;
$uri->query_form('q'=>$what_i_want_to_find);
my $url = 'http://www.google.com/search' . $uri->as_string;
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req)->as_string;
$res =~ /\<p\>\<a href\=([^>]+)\>/;
print $1;
I hope this was useful.