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
Snippets of code should be wrapped in
<code> tags not<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).