#!/usr/bin/perl
#
#Script by larry mcg Sept 15, 1995
#This script loads a URL from a form input
#Use the GET method in the form to put the query into $QUERY_STRING
$in = $ENV{'QUERY_STRING'};

#now convert hex numbers to alphanumeric
$in =~ s/%(..)/pack("c",hex($1))/ge;

#now split into 2 variables
($key, $val) = split(/=/,$in,2);

#now go there
print "Location: $val\n\n";

exit 0;