#!/usr/bin/perl

use strict;
use warnings;
use Digest::Perl::MD5 'md5_hex';
print 'Digest is ', md5_hex('foobarbaz'), "\n";