Untitled Document

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

[% name %]

Edit user

[% END %] ##

##

use strict;

use warnings;



use Template;



my @names  = qw/ Foo Bar Moo /;



my $template = Template->new;





$template->process('test.pl', { list => \@names })

        or die $template->error;





print <







Untitled Document













  

    

  

  

    Foo

  

  

    Edit user

  







  

    

  

  

    Bar

  

  

    Edit user

  







  

    

  

  

    Moo

  

  

    Edit user

  





















START_HTML






Untitled Document




[% FOREACH name IN list %]

  
    
  
  
    [% name %]
  
  
    Edit user
  

[% END %]