#!/usr/bin/perl
# md5.pl

use strict;
use MD5;

print 'enter pass:';
my $passwd = <STDIN>;
chomp $passwd;

my $md5=new MD5;
$md5->add($passwd);
my $digest=$md5->digest();
print("result is ", unpack("H*", $digest), "\n");