sample perl program to produce dwm status bar with minimal resource usage (measured with great powertop)