use LWP::Simple;

my $url = qq|http://www.google.co.uk/|; ## This works okay...

#my $url = qq|http://www.google.co.uk/search\?q=cartoons|; ## This doesn't!

my $file = "/_google/google.htm";

&getfile($url,$file);

exit;

sub getfile {
my ($url,$file) = @_;
print "Grab: $url\n";
my $rc = mirror($url, $file);
if ($rc == 304) {
print "Up To Date.\n";
} elsif (!is_success($rc)) {
warn "Error: $rc ", status_message($rc), " ($url)\n";
return(0);
}
}