$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++;
    }
);

##</code><code>##

$pm->finish(0); # Couldn't connect to this one, skip to next server in main loop

##</code><code>##

	# Close ssh connection to this server
$ssh->close();
$pm->finish(1);