1 #! /usr/bin/perl

     2 use 5.010;

     3 use strict;

     4 use warnings;

     5 

     6 use Template;

     7 

     8 my $template = Template->new();

     9 

    10 foreach my $file (@ARGV) {

    11 

    12     $template->process(

    13         $file => {

    14             name   => "Hans",

    15             n      => 12,

    16             gaeste => [qw(Suse Fred Horst)],

    17         }

    18     );

    19 }

    20