use Digest::MD5;
my $string = "format_c";
print Digest::MD5::md5_hex($string);