my $did_this_time = 0;
my $i=0;
Fonction0;
while (1) {
  my $now = time;
  if ( $now != $did_this_time && $now % 6 == 0 ) {
    $did_this_time = $now;
    $i++;
    FONCTION1();
    FONCTION2();
           if (i==10) {
                    FONCTION3();
                     break;
                    }
      }
}