外部コマンドで stty -echo を使う ---- #!/usr/bin/perl system "stty -echo"; print "Password: "; chomp($pass = <STDIN>); system "stty echo"; print "\n"; print "input word: $pass\n"; ----