#!/usr/bin/perl -w
use strict;
require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get('http://www.fileplanet.com/');

if ($response->is_success) {
print "Content-Type: Text/HTML\n\n";
print $response->content; # or whatever
# The 'or whatever' here would be to save the contents to a file.
# I'll leave that as an exercise for you :)
}
else {
die $response->status_line;
}

#!/usr/bin/perl

use strict;
use LWP::Simple;

my $url = 'http://www.perl.com';

my $page = get($url);

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