use Term::InKey; print "password: "; my $password = ReadPassword("*"); print "\nYour password is '$password'\n"; [download]
In reply to Re: Editing STDIN by vladdrak in thread Editing STDIN by Andrew_Levenson