use Digest::MD5 'md5_hex';
print md5_hex("123456");
__END__
e10adc3949ba59abbe56e057f20f883e