# statistics
my ($cpuTime, $execTime, $load) = ('-', '-', '-');

my $benchmarkEnd = Benchmark->new();
my $diff = Benchmark::timediff($benchmarkEnd, $benchmarkStart);
my $str  = Benchmark::timestr($diff);

if ($str =~
    /(\d+)\s*wallclock secs \(\s*?(\d*?\.\d*?)\s*usr\s*\+\s*(\d*?\.\d*?)\s/i) {
    $cpuTime = $2; $execTime = $1;
} # if

if (open (LOAD, '/proc/loadavg')) {
    $load = substr(<LOAD>, 0, 5);
    close (LOAD);
} # if