my $desc = q(
                     SNMPMessage ::= SEQUENCE {
                         version    INTEGER,
                         community  OCTET STRING,
                         pdu        ANY
                     }
            );

my $asn = Convert::ASN1->new();
$asn->prepare($desc) or die $asn->error;
my $snmp_message = $asn->find("SNMPMessage");

##</code><code>##

$VAR1 = {
          'community' => 'public',
          'version' => 0,
          'pdu' => <binary whatnot>,
        };