use Net::SNMP ;
   $session->set_request(
    -varbindlist => ['.1.3.6.1.4.1.9.9.16.1.1.1.3.333',IPADDRESS,$r_ip]
    );