use Term::ReadKey;

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