#!/usr/bin/perl
require "weblib.lib";
&ReadParse;
if($in{switch}){
	print "Location: $in{switch}\n\n";
}