use Term::ReadKey;

print "\nEnter your password: ";

ReadMode 'noecho';
$pass = ReadLine 0;
chomp $pass;
ReadMode 'normal';

print $pass,"\n";