RosettaCodeData/Task/MD5/Perl/md5-1.pl

use Digest::MD5 qw(md5_hex);

print md5_hex("The quick brown fox jumped over the lazy dog's back"), "\n";