Old perl script to check nortel routers.