A perl script to open ports on linux-based routers automagically