Select Code to Download

foreach $webserver ( `cat servers` ) {
    $result = `ssh server cvs update ... `;
...
        echo 'problem with server $webserver'
    }
}

#! perl

...
    my $result = `ssh $job cvs update ...`;
    print "Server $job had errors" if $result =~ m[Error];
}

#! perl
use threads;
...
}

$_->join for @threads.