foreach (keys %$self)
	{
            $hash->{$_} = $self->{$_};
	}
	my $data = $xml->XMLout($hash , XMLDecl => 1, OutputFile => $xmlfile, NoAttr=>1 );