A Perl script for Nagios to check the port-channel state of a Cisco IOS device