sub snmpget
{
   my $self   = shift;
   my $target = shift;

   my $session;
   my $value;
   
   $session = new SNMP::Session ( DestHost  => $self->host, 
                                  Community => $self->community );
   $value   = $session->get($target) || warn "SNMP ERROR: $session->{ErrorStr}";

   $nom->debug (3, "SNMP: snmpget succeeded.  Target: $target, Value: $value");
 
   return $value;
}