#!/usr/bin/perl use strict; use warnings; use HTML::Template::Compiled; # musst du wahrscheinlich noch installieren my @files = qw(file1 file2); # wird bei Dir durch File::Find gefuellt my $content = do{ local $/; }; my $tmpl = HTML::Template::Compiled->new( scalarref => \$content ); my @links = map{ {HREF => $_, TITLE => $_ } }@files; $tmpl->param( LINKS => \@links ); print $tmpl->output; __DATA__