Wifi signal perl script, runs ok in dwm