
use XML::Structured;
use Data::Dumper;

my $dtd = [   
		'' =>
                  [ 'user' =>
                        'login',
                        [[ 'address' =>
                            'street',
                            'city',
                        ]],
                  ],
           ];

my $d = '
           <user login="foo">
             <address street="broadway 7">
  <city>
foo
  </city>
</address>
             <address street="rural road 12" city="tempe" />
           </user>
';

print Dumper($dtd);
my $dd = XMLin($dtd, $d);
print Dumper($dd);
print XMLout($dtd, $dd);



