my $self = { _username => Polo,
             _user_tags = [],
             _user_pass => undef
}

##</code><code>##

    my $data = $xml->XMLout(%$self , XMLDecl => 1, OutputFile => $xmlfile, NoAttr=>1 );    

##</code><code>##

Options must be name=>value pairs (odd number supplied) at...

##</code><code>##

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

##</code><code>##

Operation "==": no method found,
	left argument has no overloaded magic,
	right argument in overloaded package Net::IP at inc/XML/Simple.pm line 1406

##</code><code>##

$hash->{_username} = $self->{_username}
$hash->{_user_tags} = $self->{_user_tags}
$hash->{_user_pass} = $self->{_user_pass}

my $data = $xml->XMLout($hash , XMLDecl => 1, OutputFile => $xmlfile, NoAttr=>1 );