To find the system load use the following perl snippet : 1) System load of last one minute : my $system_load = exec(‘uptime | awk -F “load average: ” \'{ print $2 }\’ | cut -d, -f1′); my $system_load = qx(‘uptime | awk -F “load average: ” \'{ print $2 }\’ | cut -d, -f1′); […]