タイムアウト処理いれとこうぜ

eval {
  local $SIG{ALRM} = sub { die };
  alarm 3; #3秒まで待つ

  ## ここでBBQ
	
  alarm 0;
};
みたいなかんじで