#!/usr/bin/perl

use LWP::UserAgent;

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

my $ua = new LWP::UserAgent();
my $url = 'http://www.google.com/';
my $httpresp = $ua->get($url);

print $httpresp->content;