Battery indicator for fluxbox, written in perl