see How do I ask the user for a password?

You can find this, and many other questions in the FAQ also available at your command prompt with 'perldoc perlfaq'.