Perl Code for Automation - this code uses the telnet module to talk to telecommunications equipment