#! /usr/bin/perl
use 5.010;
use strict;
use warnings;

use Template;

my $template = Template->new();

foreach my $file (@ARGV) {

    $template->process(
        $file => {
            name   => "Hans",
            n      => 12,
            gaeste => [qw(Suse Fred Horst)],
        }
    );
}

