Доброго времени суток!

Есть такая штука в перл, как перехват CTRL+C:

$SIG{INT} = \&tsktsk;
sub tsktsk {
  $SIG{INT} = \&tsktsk;
  #Выполняемый код, перед завершением программы      
  exit;
}

А как можно сделать подобное, но чтобы перехватывалось нажатие любой клавиши?