Q:\>perldoc -q password
Found in S:\OS\OSP\OSPI\perl-5.8\5.8.2\lib\pod\perlfaq8.pod

##</code><code>##

  use Term::ReadKey;

  ReadMode('noecho');
  $password = ReadLine(0);