#!/usr/bin/perl use strict; use warnings; use HTML::Template::Compiled; # musst du wahrscheinlich noch installieren use File::Find; use CGI; my @files; find( \&wanted, '.' ); my $cgih = new CGI; print $cgih->header(); 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; sub wanted{ push @files, $_ if /\.pdf$/; } __DATA__