use strict;
use warnings;

require LWP::UserAgent;

my $url = "http://www.google.de/search?hl=de&q=suchwort&btnG=Suche&meta=";
my $ua = LWP::UserAgent->new;
$ua->agent('googlebot'); # man muss sie mit ihren eigenen Waffen schlagen

my $req = new HTTP::Request GET => "$url";
my $res = $ua->request($req);
if ($res->is_success) {
   print $res->content;
}