my $did_this_time = 0;
while (1) {
  my $now = time;
  if ( $now != $did_this_time && $now % 6 == 0 ) {
    $did_this_time = $now;
    FONCTION1();
    FONCTION2();
  }
}