use Digest::MD5 qw(md5 md5_hex md5_base64);

 $digest = md5($data); #binary
 $digest = md5_hex($data); #hexadecimal
 $digest = md5_base64($data); #base64 encoded