sub QueryData {
	$QD_In = $_[0];
	@QD_Pair = split('&',$QD_In);
	%QD_Out = map{split('=',$_,2)} @QD_Pair;
	return (%QD_Out);
	}