#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI qw/:standard/;
use LWP::Simple;

print "Content-type:text/html\n\n"; 

my $query = $ENV{'QUERY_STRING'};
my $content = get("http://www.google.com?$query");
 die "Couldn't get it!" unless defined $content;

print $content;