#THIS IS THE TEST.PL use strict; use warnings; use Template; my @names = qw/ Foo Bar Moo /; my $template = Template->new; my $templ = < Untitled Document [% FOREACH name IN list %]
  • [% name %]
    Edit user
    • [% END %] START_HTML $template->process (\$templ, { list => \@names }) or die $template->error;