You have reached John's get that web page

  Enter name of web site:  

  The MIME type (Content-type), heading to be used is:-  

Miss Ratchet This script will access a web page:-
use strict;
use LWP::Simple;
use CGI qw(:standard escapeHTML);
use URI::Heuristic;
my $rawurl = param('urlname');
my $url = URI::Heuristic::uf_urlstr($rawurl);
my $content = get $url;
die "Couldn't get $url" unless defined $content;
my $contenttype = param('contenttype');
if ($contenttype ne "BLANK no MIME type"){
print "Content-type: $contenttype\n\n";}
print $content;

Still no joy? Try one of these links:-

Updated September 7th. 2008  home