use IO::Prompt;
my $pswd = prompt("password for <your name here>: ", -e => '*');