##

use strict;
use Template;

my $tt = Template->new();
     $tt->process('config.tt', {}) or die $tt->error();

##

##

[%- USE xml = XML.Simple('config.xml') %]
[%- FOREACH a = xml.keys() %]
  [% a %]:
  [%- FOREACH b = xml.$a.keys() %]
    [% b %]
  [%- END %]
  [%- END %]
[%- END %]

##

##

[%- USE xml = XML.DOM %]
[% dom = xml.parse( 'config.xml' ) %]
[%  FOREACH product = dom.getElementsByTagName('price') %]
  [% product.getAttribute('ttype') %]:
      [% VIEW ttype%]
       [% BLOCK product %]
          [% item.content(view) %]
       [% END %]
      [%- END %]
   [%-END%]
[% #USE Dumper %]
[%# Dumper.dump(xml) %]