Silly perl script that checks battery charge and beep if under 10%.