Select Code to Download

foreach my $disk (@tab_disks) {
    my $pid = fork();
...
      exit;
    }
  }

my $cmd = 'ssh -qt ' . $disk->{controller_ipaddr} . ' "sudo '. $CMD_ST
+ORCLI . ' /c0/e' . $disk->{physical_id} . '/s' . $disk->{slot_id} . '
+ show 2>&1"';
  $logger->debug("Execute command : " . $cmd);
...
  }
  close COMD;
  $logger->debug("Command exit status : " . $?);