I need to provide a script to install on Windows 2003 IIS in the www directory. I don't have this to test. Would the following code function directly or does it need module install or other tweaking?
#!/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;