update perl script for urxvt