#!/usr/bin/perl
print "content-type: text/plain\n\n";
$referer=$ENV{HTTP_REFERER};
while ($referer ne "" and $_ ne "/"){$baseref=$_.$baseref;$_=chop($referer);};
#print "<!-- $baseref by Alexander Oelzant <aoe\@oeh.net> -->\n";
open SOURCE,"<$baseref";
while (<SOURCE>){print $_;};