#!/usr/bin/perl -w
use LWP::UserAgent;
use URI::URL;

$ua = LWP::UserAgent->new();
$ua->agent("Links/2.0"); # или каквото си харесаш за браузер

my $search_engine = "http://www.google.com/search"; #за други url-та виж сам
my $search_string = "o'reily perl cookbook"; # какво ще търсим
my $desired_language = "bg"; #това може и да го пропуснеш
my $URL = url($search_engine); # man URI::URL
$URL->query_form(q =>$search_string , hl => $desired_language);
my $result = $ua->get($URL)->as_string;
print $result; # в $result ти е HTML кода и вече си го парсвай