use strict;
        use CGI qw(:standard);
        use CGI::Carp qw(fatalsToBrowser);
        use Socket;
        use Net::SNMP;  #Net::snmp 5.1
        my $snmp_version   =  '2c';
        my $snmp_port      =  161;
my $host = ***.***.***.*; #passed from form
my $community = *****;    #passed from form
        my ( $snmp_session, $snmp_error ) = Net::session(
                     -hostname     => $snmp_host,
                     -community    => $snmp_community,
                     -version      => $snmp_version,
                     -port         => $snmp_port,
                     -debug        => 0 );


        
        my $newname = param('Device Name');
        my $newdescription = param('Description');
        my $newlocation = param('location');
        my $newcontact = param('Contact');

        my $sysname = '1.3.6.1.2.1.1.5.0';
        my $sysDescr= '1.3.6.1.2.1.1.1.0';
        my $sysContact= '1.3.6.1.2.1.1.4.0';
        my $sysLocation = '1.3.6.1.2.1.1.6.0';

        my $result = $snmp_session->set_request(-varbindlist => [$sysName, OCTET_STRING, $newname,
                                                            $sysDescr, OCTET_STRING, $newdescription,
                                                            $sysLocation, OCTET_STRING, $newlocation,
                                                            $sysContact, OCTET_STRING, $newcontact]);
        $result or warn "error: @{[$snmp_session->error]}\n";