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