my $bah = \&INTEGER;
snmpset("1.3.6.1.4.1.9.9.68.1.2.2.1.2.22","1.1.1.1","mystring",&$bah,1);