Select Code to Download

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

$ 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.

$ xml_simple_args.pl
Can't modify constant item in scalar assignment at ./xml_simple_args.p
+l 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.

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

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

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