##
print @open;
##
##
use strict;
use warnings;
my $zero = "\nZero Active Processors:\n\n";
my $one = "\nOne Active Processor:\n\n";
foreach ( `ganglia proc_run` )
{
$zero .= $_ if /\s0\s+$/;
$one .= $_ if /\s1\s+$/;
}
print "$zero$one\n";