Hey here is something that works on my windows XP box.
here is the code:
#!/usr/bin/perl -w
use Term::ReadKey;
print "Gimme a word: ";$|++;
while (1) {
$|++;
ReadMode 5;
$key = ReadKey (10);
chomp ($key);
ReadMode "normal";
printf "*";
$|++;
#printf "\nYou said %s, char number %03d\n",
#$key, ord $key;
last if ($key =~ /
\r\n/);
}
print "\n";
-Thanks
kart124