- or download this
my $n_secs = 30; #seconds after which we die.
my $start = time;
...
## do stuff ##
}
- or download this
package RunKiller;
...
}
1;
- or download this
require RunKiller;
my $runtimer = RunKiller->new(30); #30s run length.
...
$runtimer->check();
## do something ##
}