LWP::Simple on Windows 2003 IIS

[jonnyfolk]

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;