eval {
                $unicode = Encode::decode($from,$str);
            };
            if ($@)
            {
                &ConvertEncodingError("($from -> utf8)\n$@");
                return $str;
            }