use IO::Prompt;

my $passwd = prompt("Enter password: ", -e => "");

print $passwd;