(while true ; do uptime ; sleep 3 ; done) | perl -ne '@load =  /\d\.\d\d/g ; print "\a" if $load[0] < .4 ; print "@load\n"'