Ныкаем пароли из консоли

use Term::ReadPassword;

my $password = read_password('password: ');
redo unless defined $password;

Пароль не будет виден при введении в консоле.