use Digest::MD5 qw(md5 md5_hex);
  $digest = md5($data);