Well I like to run SNMP over tcp so i do this:

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);
}
[download]

Note that I actually use this code and it does work. BUT! Use at your own risk.

--habit