Re: [MacPerl] How to do noecho input?

[Detlef Lindenthal]

## ##  Martin Buchmann wrote:
## ##           Is there a way to get some noecho input from the MacPerl-Window or a 
dialog?
## ##            I want to ask for a password ...

## ##   Answer: Oh yeah!


`stty raw`;

print "Print your top secret password > enter:\n";

while ($c ne "\n")  {
  do {
    $c = getc;  } until (defined $c);
  print uc("•");
  $password .= $c }

`stty sane`;

print "\n I know your top secret password: $password\n";