Example using XML::Writer