sub fill_in {
...
  my $fi_progtext = 
        "package $fi_eval_package; $fi_prepend;\n$fi_lcomment\n$fi_text;";
  ...
  print "eval on \n", $fi_progtext,"\n";
  $fi_res = eval $fi_progtext;

##</code><code>##

eval on
package T; use strict;;
#line 1 dokpe.tmpl
 $annee ;
eval on
package T; use strict;;
#line 4 dokpe.tmpl
"\t";

##</code><code>##

Plan de fermeture { $annee } 
Bibliothèque de la Faculté des Sciences (Dokpe)

Motif{"\t"}