Select Code to Download

#!/usr/bin/perl
open PIPE, "/usr/local/bin/top -b -n 3 |" or die "Cannot open";
...
close PIPE or die "Running top failed";
print "$output\n";
exit(0);

load averages:  0.26,  0.24,  0.30    16:02:45
171 processes: 168 sleeping, 1 running, 1 zombie, 1 on cpu
...
 6451 pc2587     1  11    0  984K  704K sleep   0:26  5.36% br
 5983 dw3586     1  48    0  984K  704K sleep   1:19  0.35% br
 5962 dw3586     1  48    0  984K  704K sleep   1:39  0.35% br