in reply to Accepting Password from user

You should install Term::ReadKey moudule from CPAN.
Do the followings from your prompt:
prompt> perl -MCPAN -eshell cpan>install Term::ReadKey


Hotshot