![]() |
This script will access a web page:- #!/usr/bin/perlml 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:- http://www.esmacorp.com http://www.proxy000.info http://www.reseachtoppicks.com http://www.pimpmyproxy.info |