use Term::ReadKey;

 print "password please:\n";
 ReadMode 'noecho';
 my $password = ReadLine 0;
 chomp $password;
 ReadMode 'normal';