#!/usr/bin/perl

use Digest::MD5 qw( md5_hex );

my $string	= "Test";
my $md5		= md5_hex($string);
print "MD5 of $string is '$md5'\n";