How can I enter a password using Perl and replace the characters with '*'?

Question

I have a Perl script that requires the user to enter a password. How can I echo only '*' in place of the character that the user types, as they type it?

I'm using Windows XP/Vista.