#!/usr/bin/perl
#

use Digest::MD5 qw(md5_hex md5_base64);


$data = "myname:mypassword";


$digest = md5_hex($data);

print "$digest\n\n";



$digest = md5_base64($data);

print "$digest\n\n";







__END__