while(1) {
    open my $la, '<', '/proc/loadavg';
    print <$la>;
    close $la;
    sleep 1;
}