use Term::ReadKey;
  ReadMode 2;
  chomp( my $password = ReadLine );
  ReadMode 0;