####### Redirection URL 
$ToUrl = $ENV{'QUERY_STRING'};

&Redirect;

####### Send to url pointed at by the hyperlink
sub Redirect
{
	print "Location: $ToUrl\n\n\n";
}
###########