A monolithic perl script to interrogate an ADSL router (via curl)