Select Code to Download

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

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

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

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

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

$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 );