Help for this page

Select Code to Download

Select or download this

use Win32::Console;
$keyboard = Win32::Console->new(STD_INPUT_HANDLE);
...
    @in = $keyboard->Input();
    print(chr($in[5])) if $in[1];
}

Select or download this
```
@echo off
perl sigint.pl
```