#! /usr/bin/perl

use LWP::Simple; # http://search.cpan.org/dist/libwww-perl/lib/LWP/Simple.pm

$url = $ARGV[0];
$url =~ s|^http://||i;
$url =~ s|^|http://|i;
print "<base href='$url'>\n";

$doc = get($url);
print $doc;

#! /bin/ksh
# url="$1"
# echo "<base href=\"$url\">"
# lynx -source $url