my $xml = XMLin("$name.xml", searchpath => ['users']);
use Data::Dumper;
print "<pre>" . Dumper($xml) . "</pre>";