dwm status bar written in perl