require RunKiller;
my $runtimer = RunKiller->new(30); #30s run length.

while (1) {
   $runtimer->check();
   ## do something ##
}