You could also just use Term::ReadKey. I've used it on Win2k, XP, and Vista. It's clumsy to use, but I stuffed it into a utility module I use, like so:
my $pword = get_pword( "Enter password" );
print "Password is '$pword'\n";
sub get_pword {
use Term::ReadKey;
my ($prompt) = shift;
my $pword;
my $key;
local $| = 1; # Turn off STDOUT buffering for immediate response
print "$prompt: ";
ReadMode 4; # Change to Raw Mode, disable Ctrl-C
while( 1 ) {
while (not defined ($key = ReadKey(-1))) { }
if(ord($key) == 13) { # if Enter was pressed...
print "\n"; # print a newline
last; # and get out of here
}
print '*';
$pword .= $key;
}
ReadMode 0; # Reset tty mode before exiting. <==IMPORTANT
return $pword;
}
Also, Term::ReadKey comes standard with Perl.
--marmot
UPDATE: Fixed a sorta bug. Accidentally introduced an extraneous while loop when I copied the code. Didn't hurt anything but my pride...