($session, $error) = Net::SNMP->session(
						    -hostname      => $ip,
						    -port          => $port,
						    -version       => $version,
						    -timeout       => $seconds,
						    -retries       => $retry,
						    -username      => $username,    
						    -authpassword  => $authpasswd,    
						    -authprotocol  => $authproto,
						    -privpassword  => $privpasswd,
						    -privprotocol  => $privproto,
						    );
	    die "Problem creating SNMP \n $error" if($error);
	 	  
	    
	    #MIB Objects
	    my $TransferServerOID = '.1.3.6.1.4.1.576.25.1.2.2.1';
	    my $TransferLoginNameOID = '.1.3.6.1.4.1.576.25.1.2.2.2';
	    my $TransferPasswordOID = '.1.3.6.1.4.1.576.25.1.2.2.3';
	    my $TransferCommandOID= '.1.3.6.1.4.1.576.25.1.2.2.7';
	    my $TransferManifestOID= '.1.3.6.1.4.1.576.25.1.2.2.8';
	    #Values to assign to MIB OBjects
	    

	    my $TransferServer = 'XXXXXX' ;
	    my $TransferLogin = 'XXXXXX';
	    my $TransferPass = 'XXXXXXX';
	    my $TransferCommand = 1;
	    
	    #Set MIB Objects
	    my $result = $session->set_request(
					       -varbindlist =>[
							       ($TransferServerOID,OCTET_STRING,$TransferServer),
							       ($TransferLoginNameOID,OCTET_STRING,$TransferLogin),
							       ($TransferPasswordOID,OCTET_STRING,$TransferPass),
							       ($TransferCommandOID,'HmsSysCommandType',$TransferCommand),
							       ($TransferManifestOID,OCTET_STRING,$wamfile),
							       ]);
	    
	    
	    die "SNMP Failure... $!" unless (defined($result));