Select Code to Download

my $res = $session->get("sysDescr.0",[\&call]);
    die $session->{ErrorStr} if ($session->{ErrorStr});
...
    print Dumper($vlist);
    SNMP::finish();
}

ok        0:'sysDescr'    1:''    2:''    3:''
$VAR1 = bless( [
                 bless( [
...
                          'OCTETSTR'
                        ], 'SNMP::Varbind' )
               ], 'SNMP::VarList' );