use 5.012;
use Term::ReadKey;

# Read password without echo
print 'Password: ';
ReadMode 2;
my $password = <STDIN>; chomp $password;
ReadMode 0;
say 'ok';

# ... Do something with the password ...

# Clear memory containing password
substr($password, 0) = '*' x length($password);