1000 ##

##




##

##

my $xmlSimp = XML::Simple->new();
my $xmlCont = $xmlSimp->XMLin($xmlPath);
my $varIn = "";  our %xmlHash;
foreach my $keyI (keys (%{$xmlCont->{"items"}})) {
    $varIn = $xmlCont->{"items"}->{$keyI};
    $xmlHash{$keyI} = $varIn;
    if ($keyI eq "nextSessionID") {
	$xmlCont->{"items"}->{$keyI} = ++$varIn;
    }
}
my $tmpOut = $xmlSimp->XMLout($xmlCont, 
		KeepRoot   => 1, 
		OutputFile => $xmlPath,
		XMLDecl => ""
		    );