use Digest::MD5 qw(md5);
my $password = "passwd";
my $encr_pass = md5($password);