PERL & SNMP 0

Доброго времени суток.

Пишу программу управления удалённой системой по протоколу SNMPv2.

Читать значения получается, а вот писать не очень. В мануале примера как писать нету :-(

Может кто подскажет ?!

Вот пример кода чтения:

****

#!/usr/bin/perl -wT

use strict;

use SNMP;

#

my $SNMPString = «.iso.3.6.1.4.1.16394.2.1.1.»;

my $ActiveHost = «192.168.1.3»;

#

my $Sess = new SNMP::Session (DestHost => $ActiveHost , Community => 'public’, Version => '2c’);

###

printf («Chassis:\n»);

printf («\t --> Vendor = » . $Sess->get($SNMPString . «36.6.0») . «\n»);

printf («\t --> Device = » . $Sess->get($SNMPString . «36.7.0») . «\n»);

printf («\t --> Model = » . $Sess->get($SNMPString . «36.8.0») . «\n»);

###

****

Для записи служит команда $Sess->set(), но как её вызывать ?!

Заранее благодарен.