my $name_coded		= &jcode::sjis($name);