BEGIN {
  $SIG{ALRM} = sub { die "Infinite loop aborted" };
  alarm 30; # or however long you want before you time out (in seconds)
}