use XML::Simple qw(:strict); #must use strict
my $xs = new XML::Simple;
my $xml = $xs->XMLout($req,NoAttr => 1,RootName=>'user',KeyAttr=>[]);