i need to write a script in perl in which i connect two routers, configure their ip addresses using two links, using interface type as sonet and ping