Select Code to Download

use Term::ReadKey;
sub masked_read(;\$$) {
...
print "Enter:";
my $password = masked_read;
print "\npassword:$password";

masked_read($password, $mask);
masked_read($password, '#');
masked_read($password);
my $password = masked_read();