use Term::ReadKey;
...
print "Password? ";
ReadMode 'noecho';
$password = ReadLine 0;
ReadMode 'normal';
...