sub ucase {
	local($s1) = @_;
	$s1 =~ tr/[a-z]/[A-Z}/;
 return $s1;
}