my @children;
foreach my $server (@servers) {
    my $child = fork;
    die "Fork error" unless defined($child);
    if ($child) {
        push @children, $child;
    } else {
        do_stuff($server);
    }
}
waitpid($_) for @children;