scratch/x
changeset 1 633e40534da4
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scratch/x	Fri Jan 11 15:40:29 2013 +0100
@@ -0,0 +1,20 @@
+#! /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)],
+        }
+    );
+}
+