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