while (1)
{
  $taxis->taxis(); # move every woodlouse through one cycle
  DoOneEvent( $running ? DONT_WAIT : ALL_EVENTS );
}