foreach my $host (@{$hashRef->{hostArray}}){ printf "Starting SNMP bulkwalk for %s\n", $host if($DEBUG); $hashRef->{config}->{DestHost} = $host; my $session = SNMP::Session->new( %{$hashRef->{config}} ); die("No session\n") if(!$session); $session->bulkwalk($hashRef->{snmpSingle}, $hashRef->{snmpBulk}, $hashRef->{varList}, [\&snmpCallback, $session, $host, \$arraySize, \%snmpData]); } print "Just before Main Loop\n"; SNMP::MainLoop();