#!/usr/bin/perl
use warnings;
use strict;
use Linux::Statistics;

$| = 1;

my $obj = Linux::Statistics->new( ProcStats => 1, TimeStamp => 1 );

print "Report/Statistic for ProcStats\n";
printf '%8s', $_ for qw(Time User Nice System Idle IOWait Total New);
print "\n";

while (1) {
   sleep(1);
   my $stats = $obj->getStats;

   print "$stats->{TimeStamp}->{Time}";
   printf '%8s', $stats->{ProcStats}->{$_} for keys %{$stats->{ProcStats}};
   print "\n";
}
