That should be quite easy to do using Net::OpenSSH::Parallel...

Actually, I have done that and included it as a sample script on the module package: concheck.pl.