#!/usr/bin/perl

#print "Location: http://www.geocities.com/castle_world_temp";
print "Location: http://www.ozbricks.net/castle";
print $ENV{PATH_INFO} ? $ENV{PATH_INFO} : '/';
print "?$ENV{QUERY_STRING}" if $ENV{QUERY_STRING};
print "\n\n";