#!/usr/bin/perl -w
$| = 1;
use diagnostics;
use CGI::Carp qw(fatalsToBrowser);
use LWP::Simple;
print "Content-type: text/html\n\n";
print "The script has successfully started up.\n\n<BR><BR>"; # just to prove there's nothing wrong
$theURL = 'http://www.theredkitchen.net/';
unless($doc=get($theURL)){
	print "can't get the URL";
	die "$!";
}
print $doc;
exit;