#assume $usr stores current user name
print "Enter password:";
my $pass=<STDIN>;
chomp($pass);
$pword{$usr}=$pass;