open (LOADAVG,"/proc/loadavg");
while (<LOADAVG>) {
    @loads = split(/ /);
}