sub trans
{
	
	$path=@_[0];
	$tlang=@_[1];
	$input=@_[2];
	$output=@_[3];
	
	require "$path/bin/$tlang/wx2utf.pl";
	&wx2utf($path,$input,$output);
};
1;