use Term::ReadKey;

print "Password: ";
ReadMode 'noecho';
my $line = <STDIN>; 
ReadMode 'original';
chomp($line);