my $thr =  threads->create(\&test,"host","string","2");

##</code><code>##

sub test{


my ($SNMP_TARGET, $SNMP_COMMUNITY,$SNMP_VERSION) = @_;


my $SESSION = new SNMP::Session (DestHost =>$SNMP_TARGET,
                              Community =>$SNMP_COMMUNITY,
                              Version => $SNMP_VERSION );


my $VLIST = new SNMP::VarList(['sysDescr',0],      #0
                              ['sysObjectID',0],   #1
                              ['sysUpTime',0],     #2
                              ['sysContact',0],    #3
                              ['sysName',0],       #4
                              ['sysLocation',0],   #5
                              ['sysServices',0]);  #6

my @a  = $SESSION->get($VLIST); 
print "$a[0]\n";
}