91 sub getsnmp {
 92     my $session = shift;
 93     my $oids    = shift;
 94     my $myresult  = shift;
 95     my $debug   = shift;
 96 
 97     my $result = $session->get_request( -varbindlist => $oids);
 98     if($result) {
 99         if($debug) {
100             printf "%4d getsnmp result\n",__LINE__ ;
101             printf "%4d $_=>\"$$result{$_}\"\n",__LINE__ for (keys %$result);
102         }
103         for $key (keys %$result) {
104             my $value = $$result{$key};
105             $key =~ s/\.\d+$//; ### strip off index at end of string
106             my $rkey = $r{$key} or die "bad $key\n";
107             printf "%4d $rkey=>\"$value\"\n",__LINE__ if $debug;
108             print " \$\$myresult{$rkey}=$value;\n ";
109             $$myresult{$rkey} = $value;
110         }
111     } else {
112         return $myresult;
113     }
114     if($debug) {
115         printf "%4d return\n",__LINE__;
116         for(keys (%$myresult) ) { printf "%4d $_=>$$myresult{$_}\n",__LINE__}
117     }
118     return $myresult;
119 }
120 1;