my $output = IO::File->new(">xxx.xml");