Select Code to Download

sub event_loop {
   my $next_event = &get_next_event;  # e.g. time() + 5
...
}

&event_loop while $running;

if (fork()) {
   $children_spawned++;
...
      &do_main_without_timed_events;
   }
}