#!/usr/local/bin/perl
use strict;
use warnings;

use constant HOST => '';

use Net::SNMP;
use constant SNMP_COMMUNITY 	=> 'private';#read-write
use constant SNMP_VERSION	=> '2c';
use constant SNMP_OID_REBOOT	=> '.1.3.6.1.4.1.11863.6.3.1.1.0';

my $snmp = Net::SNMP->session(
	-hostname	=> HOST,
	-community	=> SNMP_COMMUNITY,
	-version	=> SNMP_VERSION
);
defined($snmp) or die $snmp->error() . "\n";

my $result = $snmp->set_request(
	-varbindlist => [SNMP_OID_REBOOT, INTEGER, 1]#.INTEGER {notReBoot(0), reboot(1),reBootAndSave(2) }
);
defined($result) or die $snmp->error() . "\n";

print "Reboot...\n";