while(1) {  
  if (my $pid = fork) {
    open F, ">>run.log" or die "Can't open log file: $!";
    print F scalar(localtime(time)), " Launched process to play cards.\n";
    my ($user,$system,$cuser,$csystem) = times;    
    print F "user $user system $system children $cuser, $csystem\n";
    close F;
    waitpid($pid, 0);
    open F, ">>run.log" or die "Can't open log file: $!";
    print F scalar(localtime(time)), " Child process finished.\n";
    my ($user,$system,$cuser,$csystem) = times;    
    print F "user $user system $system children $cuser, $csystem\n";
    close F;
  } else {
    die "Cannot fork: $!" unless defined $pid;
    initialize();
    while ($current < $MAXMETRIC) {
      goodbye('INT') if -e $DIEFILE;
## etc
    }  ## end while ($current < $MAXMETRIC)
  }
}