#!/dcs/bin/perl
# select.cgi: HTTP redirect to $Base$Pick where $X here means the
# value associated with the form variable X
# franklin@uci.edu, 12 February 1998

$cgilib = "/Web/httpd/cgi-bin";
push(@INC,$cgilib);
require 'cgi-lib.pl';

&ReadParse;

## next line for debugging use only
# print "Content-type: text/plain\n\n";
print "Location:".$in{"Base"}.$in{"Pick"}."\n\n";