You can use Term::ReadKey. Alternatively on Win32 you could use use Win32::API and GetAsyncKeyState. For example this is a keylogger that will burn 50% of your system resources, depending on the sleep time.

use Win32::API;
Win32::API->Import("user32", "int GetAsyncKeyState(int I)");
while(1) {
    for(32..128) {
        $state = GetAsyncKeyState($_);
        next unless $state;
        print chr($_);
    }
    select(undef,undef,undef,0.1);
}
[download]

Node text goes above. Div tags should contain sig only -->