[# $Id: $#] [# $HeadURL: $#] [* use lib qw(/home/www/pm); use strict; $ENV{BASESERVERNAME} =~ s/www\.//; $ENV{BASESERVERNAME} =~ s/media\.//; my $url = "http://".$ENV{BASESERVERNAME}; $http_headers_out{'Location'} = qq{$url?.rand=}.time(); ## REDIRECT TO INSTRUCTION PAGE exit 301; *]