#! perl
use threads;

my @webservers = <>;
my @threads;
for my $job ( @webserver ) {
    push @threads, async{
        my $result = `ssh $job cvs update ...`;
        print "Server $job had errors" if $result =~ m[Error];
    };
}

$_->join for @threads.