use Term::ReadKey;

ReadMode 'noecho';
my $passw = ReadLine;
ReadMode 'restore';

print "$passw\n";  # just to check