...
use Term::ReadKey;

print "Enter your password: ";
ReadMode('noecho');
$password = ReadLine(0);