perl based script to run commands against network devices