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

sub call {
	my $vlist = shift;
	print "ok\t0:'$vlist->[0][0]'\t1:'$val->[0][1]'\t2:'$val->[0][2]'\t3:'$val->[0][3]'\n";
	print Dumper($vlist);
	SNMP::finish();
}

##</code><code>##

ok        0:'sysDescr'    1:''    2:''    3:''
$VAR1 = bless( [
                 bless( [
                          'sysDescr',
                          '0',
                          'Cisco Systems WS-C6513
Cisco Catalyst Operating System Software, Version 8.4(6)
Copyright (c) 1995-2006 by Cisco Systems
',
                          'OCTETSTR'
                        ], 'SNMP::Varbind' )
               ], 'SNMP::VarList' );