$pressed = <STDIN>;
$Key = Win32::API ("user32", "GetAsyncKeyState", [P], "N");
$key = $Key->Call($pressed);
print "$key";