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