perl字符串MD5编码解决

上源码：

use utf8;

use Digest::MD5 qw(md5_hex);

use Encode::Locale qw($ENCODING_LOCALE_FS);

                           my $md5=encode("gbk",$md5);  #这里转的问题是 md5的方法与use utf8; 有冲突所以实测转gbk就可以入库

                                   $md5=md5_hex($md5);

                                  print  "md5码：".$md5."\n";