use strict;
use warnings;
use XML::Simple;
my $xmlfile = q{xml_simple_args.xml};
my $xml = XML::Simple->new();

##</code><code>##

$ xml_simple_args.pl
Bareword "Polo" not allowed while "strict subs" in use at ./xml_simple_args.pl line 9.
Execution of ./xml_simple_args.pl aborted due to compilation errors.

##</code><code>##

$ xml_simple_args.pl
Can't modify constant item in scalar assignment at ./xml_simple_args.pl line 11, near "],"
Bareword "_user_tags" not allowed while "strict subs" in use at ./xml_simple_args.pl line 9.
Execution of ./xml_simple_args.pl aborted due to compilation errors.

##</code><code>##

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

##</code><code>##

my $xml = XMLout($hashref [, <options>]);

##</code><code>##

$ cat xml_simple_args.xml
<?xml version='1.0' standalone='yes'?>
<opt>
  <_user_pass></_user_pass>
  <_username>Polo</_username>
</opt>