ssh into a list of servers and call the top command, then concatenate the results into a single file

multi-top.pl

#!/usr/bin/perl                                                                 

use strict;                                                                     
use warnings;                                                                   

exit(0) unless @ARGV;                                                           

open(my $fh, '>>', 'mutlti-top.out') or die "$!";                               
foreach my $server ( @ARGV ) {                                                  
    print {$fh} `ssh ${server} top -bn 1`;                                       
}                                                                               
close($fh);