Hi everyone! I'm a total noob on Perl and I have a problem... I'm trying to get a script working with Net::SNMP but I always get the error: "Received noSuchName(2) error-status at error-index 1."

Can anybody help me? Here's my script:

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, -commu
+nity => '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;
}
[download]