Fluxbox battery icon perl script by OTPABA