I do something like that to check the status of my servers.

@hosts = qw(hosta hostb hostc);

foreach $host (@hosts) {
    $status{$host} = `rsh -l ems $host /path/command`;
}
[download]