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

##</code><code>##

use Digest::SHA1 qw(sha1);
my $password = "passwd";
my $encr_pass = sha1($password);

##</code><code>##

use Digest;
my $password = "passwd";
my $digest = Digest->new("SHA1");
$digest->add($password);
my $encr_pass = $digest->digest();