use Term::ReadKey;

print "Enter PASSWORD: ";
ReadMode 'noecho';
my $line = <STDIN>; chomp($line);
ReadMode 'normal';
print "\n";