#! /usr/bin/perl
use XML::Template;

my $doc = XML::Template::process_file('../xml/clone.xml', {
	'color' => 'red',
	'#things' => [
		{ 'li' => 'Raindrops on roses',    'li/class' => 'odd' },
		{ 'li' => 'Whiskers on kittens',   'li/class' => 'even' },
		{ 'li' => 'Bright copper kettles', 'li/class' => 'odd' },
		{ 'li' => 'Warm, woolen mittens',  'li/class' => 'even' }
	]
});
print $doc->toString;
