I've been using XML::Writer for 3 years now and it works very well for my needs; it cannot convert data structures to XML, but it is perfect if you want to compose XML programmatically; its capability of pretty printing is configurable; a good module in my opinion!

use strict;
use warnings;

use IO::String;
use XML::Writer;

my $struct = {
  epoch => time(),
  events => [
    { type => 'move', elements => { left => 1, up => 2 } },
    { type => 'pen', elements => { down => 1, color => 'red' } },
    { type => 'move', elements => { right => 3, up => 1 } },
  ],
};

print to_xml($struct), "\n";

exit;

sub to_xml {
  my $input = shift;
  my $buffer;
  my $io = IO::String->new($buffer);

  my $xml = XML::Writer->new(
    OUTPUT      => $io,
    NEWLINES    => 0,
    DATA_MODE   => 1,
    DATA_INDENT => 2,
  );

  $xml->xmlDecl('UTF-8');
  $xml->startTag(
    'block',
    'time' => $input->{epoch}
  );
  foreach my $event (@{ $input->{events} }) {
    $xml->emptyTag(
      $event->{type},
      %{ $event->{elements} }
    );
  }
  $xml->endTag('block');
  $xml->end();

  return $buffer;
}
[download]

<?xml version="1.0" encoding="UTF-8"?>

<block time="1175447784">
  <move left="1" up="2" />
  <pen color="red" down="1" />
  <move right="3" up="1" />
</block>
[download]