use Term::Readkey;
ReadMode('noecho');
$pwd = ReadLine(0);