$testa = ("ABCDEFGHIJKLMNOP");

$md5 = Digest::MD5->new;
$md5->reset;
print $testa."\n";
$md5->add ($testa);
print uc ($md5->hexdigest)."\n\n";