+#! /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;