> Доброго времени суток!
> Есть такая штука в перл, как перехват CTRL+C:
> $SIG{INT} = \&tsktsk;
> sub tsktsk {
>   $SIG{INT} = \&tsktsk;
>   #Выполняемый код, перед завершением программы
>   exit;
> }
> А как можно сделать подобное, но чтобы перехватывалось нажатие любой клавиши?

Тут проще вставку на ASM сделать...