foreach my $disk (@tab_disks) {
    my $pid = fork();
    if ($pid) {
      push(@childs, $pid);
    }
    elsif ($pid == 0) {
      $logger->info("Creating new sub-process");
      check_disk($logger, $disk);
      $logger->info("Exit sub-process");
      exit;
    }
  }