Listing 8. Perl Script setTargetHumidity

use CGI;
$query = new CGI;
$targetH = $query->param('targetH');
$SNMP_SET_CMD = "snmpset -v 1 -c private";
$SNMP_TARGET = "localhost";
$SNMP_TARGETHUM_OID = "targetHumidity .0";
$SNMP_TYPE = "i";

chomp($retVal = `${SNMP_SET_CMD} ${SNMP_TARGET}
      $SNMP_TARGETHUM_OID $SNMP_TYPE $targetH`);