use Term::ReadKey;

print "Type your password: ";

ReadMode('noecho');

$password = ReadLine(0);