use strict;
use XML::Simple;

my $data;
# insert code to create complex data structure in $data;

my $xml = XMLout($data, XMLDecl => 1);
open(FH,">output.xml") || die "Unable to open 'output.xml':  $!\n";
print FH $xml;
close FH;