A perl script that can connect to dd wrt via telnet and report device changes.