use Digest::MD5 qw(md5 md5_hex md5_base64);

my $encrpass = md5($password);  # binary

    or

my $encrpass = md5_hex($password);  # human-readable

    or

my $encrpass = md5_base64($password);  # human-readable too