#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple
my $url = 'http://some.domain/some/path/to/file.htm';

my $content = get $url;
$content =~ s|</head>|<base href="$url"></head>|is;

print "Content-type: text/html\n\n$content";
exit(0);