Select Code to Download

foreach my $pation (@occupation) {
   `ps -ef|grep -i $pation|grep -v grep|wc -l`;
}

my @programs = qw(netman jobman mailman batchman writer);
my @all_procs = `ps -ef`;
...

print "$_ $counts{$_}," for keys %counts;
print "\n";