sysread and buffering

[Lee, Janet]

Hi all.

I'm trying to do what I think is a very simple thing. I want to read
keyboard input char by char and time the difference between each keystroke.
I've tried using 

while (sysread STDIN, $key, 1) {
        dostuff
};

but that seems to be doing some kind of buffering so that the body of the
while loop is only executed after a carriage return. i'm using activeperl on
a windows machine. is it possible to do what i want to do in perl? is there
another call i should be using? TIA

janet