use IO::Prompt; $pwd = prompt "enter password: ", -echo=>"";