>>232
「あるキー」ってのがCtrl-Cでよければこうかな。

sub handler
{
...
}
$SIG{'INT'} = \&handler