use Term::Readkey;

ReadMode "noecho";
$password = <STDIN>;
ReadMode "restore";