my $res = $session->get("sysDescr.0",[\&call]); die $session->{ErrorStr} if ($session->{ErrorStr}); SNMP::MainLoop(); sub call { my $vlist = shift; print "ok\t0:'$vlist->[0][0]'\t1:'$val->[0][1]'\t2:'$val->[0][2]'\t3:'$val->[0][3]'\n"; print Dumper($vlist); SNMP::finish(); }