#!/usr/bin/perl -w
use strict; # added
use diagnostics;
use CGI::Carp qw(fatalsToBrowser);
use LWP::Simple;
my$doc;
my$theURL = 'http://www.theredkitchen.net/';
print "Content-type: text/html\n\n";
print "The script has successfully started up.\n\n
";
unless($doc=get($theURL)){
print "can't get the URL";
exit; # added
}
print $doc;
exit;