my $max_procs = 20;


# Create the object that will allow parallel processing
my $pm = new Parallel::ForkManager($max_procs);

# I used this as a counter to keep track of how many servers
# have been connected to vs how many have been attempted,
# and used the former as a progress indicator that I've
# omitted here.

$pm->run_on_finish(
        sub {
                my ($pid, $exit_code, $ident) = @_;
                $connected_server_count += $exit_code;
                $progress = ($count / $total_server_count) * 100;
                printf "Progress: %4.1f\%\r",$progress;
                $count++;

        }

  );



foreach my $host (0 .. $#serverlist) {
        my $pid = $pm->start($serverlist[$host]) and next;

        # Create ssh object to one server
        my $ssh = Net::SSH::Expect->new (
                host => "$serverlist[$host]",
                user => "$user",
                raw_pty => 1,
                restart_timeout_upon_receive => 1,
                timeout => 6,
                ssh_option => " -x",
                log_file=> "/tmp/$serverlist[$host].log",
        );

        # Validate that we have a successful ssh connection
        $login_output = $ssh->run_ssh() or die "Could start ssh process, error $!\n";

        sleep(1);

        my $ret;
        my $rc1 = eval{$ret = $ssh->read_all(12);};
        unless($rc1) {
                open(NOCON,">>$NOCONNECT");
                print NOCON "$serverlist[$host] - Could not connect -- skipping.\n";
                close(NOCON);
                $pm->finish(0);  # Couldn't connect to this one, skip to next server in main loop

        }

        my $rc = eval{( $ret =~ />\s*|$\s*\z/) or die "where's the remote prompt?";};
        if($rc) {
                if($ret =~ m/[Pp]assword:/) {
#                       print("Server asking for password, key not installed.\n");
                        open(NOCON,">>$NOCONNECT");
                        print NOCON "$serverlist[$host] - Asking for password -- skipping.\n";
                        close(NOCON);
                        $pm->finish(0);    # Couldn't connect to this one, skip to next server in main loop
                }
        }


        $ssh->exec("stty raw -echo");


# Perform all of your checks here, I'll add one for example

       # Execute dumpadm check - solaris coredump location
        my $dumpadm_output = $ssh->send("$dumpadm_cmd");
        my $line;
        while ( defined ($line = $ssh->read_line()) ) {
                if($line =~ m/dedicated/) {
                        if($line =~ m/zvol/) {
                                # do nothing, uses zfs
                                print("Dumpadm uses zvol -- rootfs is zfs.\n");
                        }
                        else {
                                open(DUMP,">>$DUMPADM");
                                print DUMP "$serverlist[$host] $line \n";
                                close(DUMP);
                        }
                }
        }

# Close ssh connection to this server
        $ssh->close();
        $pm->finish(1);  # 1 is successful, returned 0 for failure to connect
}  # End of main while loop for server list

# Since multiple processes were spawned asynchronously, must wait until they're all finished
# before continuing.
$pm->wait_all_children; # won't exit completely until all children are finished

# At this point, I just took all my temporary files and cat'd them together and sent it in an email to my team