die "$!"; #### #!/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;