eval {
local $SIG{ALRM} = sub { die 'timeout' };
alarm 10;
`sleep 30`; # 時間のかかる処理
alarm 0;
};
alarm 0;

こういうよくあるタイムアウト付き処理をおこなうとき
タイムアウトが起きても「時間のかかる処理」のプロセスが
残ってしまうことがあるんだけど、これをタイムアウト時に
きっちり殺す方法はありますか？