How to input one char at a time from stdin

I'd like to get a character from stdin, perform some action, get another
character, etc.  If I just use read(stdin, 1).., it waits until I finish typ
ing
a whole line before I can get the first character.  How do I deal with this?


Aleppos

Hi,

you can use the Term::Inkey module which can be found here: 
http://search.cpan.org/~razinf/Term...4/Term/InKey.pm


#An example using the Inkey module
use strict;
use warnings;
use Term::InKey;

my $x="";
while($x ne "q"){
	$x = &ReadKey;
	print "You pressed $x\n";
}