use Net::SNMP;

$host = '192.168.1.10';
$OID_CD420 = '1.3.6.1.4.1.6889.2.8.1.14.1.1.3.1';

my ($session, $error) = Net::SNMP->session(-hostname  => $host, -community => 'public', -translate => 0,);

if (!defined $session) {
    print "SNMP:\t$error\n";
    exit(2);
} else {
    printOID($session, $OID_CD420, 'Descripcion: ')	}
    $session->close();

exit(0);

sub printOID {
my ($ses, $oid, $text) = (@_);
    my $aux = '';
    my $res = $ses->get_request(-varbindlist => [ $oid ],);
   
    if (!defined $res) {
        printf "ERROR: %s.\n", $ses->error();
    } else {
        $aux = $res->{$oid};
        print $text.$aux."\n";
    }
   
return $aux;
}