#!/usr/bin/perl
use strict;
use warnings;
use POSIX qw(strftime);

my $topavg = 0;
my $topcpu = 0;
my $procnum = $$;
$SIG{INT} = \&disp;
while(1) {
    my $uptime = `uptime`;
    my $mpstat = `mpstat -P ALL 1 1`;

    my $loadavg = $1 if $uptime =~ /([0-9]+\.[0-9]+),/;
    my $usercpu = $1 if $mpstat =~ /all\s+([0-9]+\.[0-9]+)/;

    my $cur_time = strftime "%F %T", localtime;
    print "$cur_time CPU: $usercpu\tLOAD: $loadavg\n";
    $topavg = $loadavg if $loadavg > $topavg;
    $topcpu = $usercpu if $usercpu > $topcpu;
    sleep 1;
}

sub disp {
    return if $procnum != $$;
    print "\nStop...\n";
    print "MAX CPU: $topcpu\tMAX LOAD: $topavg\n";
    exit;
}