Bucles FOR

lhp@nereida:~/Lperl/src/template_toolkit/src$ cat -n ex2.pl
     1  #!/usr/local/bin/perl -w
     2  use strict;
     3  use Template;
     4
     5  my $tt = Template->new({
     6      INCLUDE_PATH => '/home/lhp/Lperl/src/template_toolkit/src/tt'
     7  });
     8
     9  my @perlprogs = map { { name => $_, size => -s $_}  } glob('*.pl');
    10
    11  my %vars = (
    12    files => \@perlprogs,
    13  );
    14  $tt->process('forex', \%vars);
lhp@nereida:~/Lperl/src/template_toolkit/src$ cat -n tt/forex
     1  [% FOREACH file IN  files -%]
     2  [% file.name %] has size  [% file.size %]
     3  [% END %]

lhp@nereida:~/Lperl/src/template_toolkit/src$ ex2.pl
ex1.pl has size  266
ex2.pl has size  288