sub get_my_oid
{

    my ($host, $oid, undef)  = @_;
    my $data = '';
    my @errors = ();
    my $options = " -l authPriv -u $User -X $Pass".
                  " -A $Pass -v 3 ".
                  " -t $Timeout -r $Retries -Ouvq ";
    
    my $result = `snmpwalk $options TCP:${host} $oid`;
    if(defined $result && (($? >> 8) == 0))
    {
      my @lines = split "\n", $result;
      foreach my $oid_line (@lines)
      {
	  $oid_line = substr $oid_line, 1; #front quote
	  chop $oid_line;                  #ending quote

	  #unescape all of my quotes. \" => "
	  $oid_line =~ s/\\\"/\"/og;

	  #it is a part of our data.
	  $data .= $oid_line;
      }
    }
    else
    {
      push @errors, 
           "Error with the snmp walk command: $!\n";
      return (undef, \@errors);
    }
    return ($data, undef);
}