use Term::ReadKey qw(GetTerminalSize ReadMode);

##</code><code>##

print "Enter your password: "; ReadMode 2; chomp($pass=<STDIN>); ReadMode 0;