#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $page = "http://www.idg.se";

print "content-type: text/html\n\n";
print "<base href=\"$page\">";

getprint $page;