use strict; use Net::SNMP; use Data::Dumper; #Variable declaration & assigment ommited ($session, $error) = Net::SNMP->session( -hostname => $host, -version => $version, -community => $community, ); # do the SNMP walk, returns a hash ($bindings) = $session->get_table ($oid); # close the SNMP Session $session->close(); # print "Errors: $error\n"; print Data::Dumper->Dump([$bindings],['response hash']);