my @params = split(/&/,$ENV{QUERY_STRING});

foreach (@params){
	
	($key, $val) = split (/=/,$_);
	 $param{$key} = $val;
};