use Digest::MD5 qw(md5_hex);
#...
my $cs = md5_hex($foo);