use Term::InKey;

print "password: ";
my $password = ReadPassword("*");
print "\nYour password is '$password'\n";