use Term::ReadKey;

print "Enter your passwd: ";
ReadMode 'noecho';
$passwd = ReadLine 0;
chomp $passwd;
ReadMode 'normal';