use Term::ReadKey;

...
ReadMode(2);
my $password = <STDIN>;
ReadMode(0);