#! perl

my @webservers = <>;

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