Select Code to Download

#!/usr/bin/perl
use strict;
...
}

__END__

$ perl 1140982.pl
1..1
...
#     $expected->{system}{security}{management_ip}{protocol}{entry_1}{
+snmp_ok} = 'foo'
# Looks like you failed 1 test of 1.
$