Introducción

lhp@nereida:~/Lperl/src/template_toolkit/src$ cat -n ex1.pl
     1  #!/usr/local/bin/perl -w
     2  use strict;
     3  use Template;
     4
     5  my $tt = Template->new({
     6      INCLUDE_PATH => "$ENV{HOME}/tt"
     7  });
     8  my %vars = (
     9    nombre => 'Casiano',
    10    nota => '8',
    11    practica => 'Template Toolkit',
    12  );
    13  $tt->process('carta', \%vars);

lhp@nereida:~$ cat -n tt/carta
     1  Hola [% nombre %],
     2
     3  Queria comunicarle que ha sacado una nota
     4  de [% nota %] en la práctica "[% practica %]".
     5  [%- IF nota > 7 %]
     6  Enhorabuena.
     7  [% END -%]
     8
     9      El profesor