my $comm = 'ihavepower'; # Use read/write community.
my $dest = '10.1.1.1';  # IP or DNS will work.
my $sver = '2';  # Use 1 for simple devices, and 3 if you
                 # really know your SNMP security.
my %snmpparms;
$snmpparms{Community} = $comm;
$snmpparms{DestHost} = inet_ntoa(inet_aton($dest));
$snmpparms{Version} = $sver;
$snmpparms{UseSprintValue} = 0;
### NEW SESSION REQUIRED!
my $sess2 = new SNMP::Session(%snmpparms);
my $mib = 'some32BitMib';  # Suppose it takes a packed IP.
my $instance = '0';        # Will vary with the MIB object.
my $value = inet_aton($ipaddr);
my $vb = new SNMP::Varbind([$mib,$instance,$value]);

$sess2->set($vb);
if ( $sess2->{ErrorNum} ) {
  print "Got $sess2->{ErrorStr} setting $mib on $host.\n";
}