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