--- /dev/null
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Template;
+use File::Find::Rule;
+use File::Path qw(make_path);
+use File::Basename qw (fileparse);
+use File::Copy::Recursive qw(fcopy);
+
+my $out_dir = "out/";
+
+#find all files
+
+my @files = File::Find::Rule->file()
+ ->in('.');
+
+
+#initialize template toolkit
+
+my $template = Template->new;
+
+foreach my $file (@files) {
+ next if $file =~ /^$out_dir/;
+ next if $file =~ /$0$/;
+ if ($file =~ /\.tt2$/) {
+ my $output;
+ $template->process($file, undef, \$output);
+ my ($name,$path,$suffix) = fileparse($file,qw (.tt2));
+ open (my $fh, '>', "$out_dir/$path/$name.html") or die "$!";
+ print $fh $output;
+ close($fh);
+ } else {
+ fcopy ($file, "$out_dir/$file");
+ }
+}