#!/usr/bin/perl
#

use strict;

my $uptime = `uptime`;

my @processInfo = `ps -e -o pid,%cpu,%mem,args --sort=-%cpu,-%mem`;

print $uptime;
for ( my $i = 1 ; $i < 6 && $i < scalar @processInfo ; $i++ ) {
    print $processInfo[$i];
}
print "\n";