package MyApp;
use Dancer2;
use File::Find;
use Dancer2::FileUtils qw/path/;

our $VERSION = '0.1';

my $datadir = Dancer2::FileUtils::path( setting('appdir'), "public/Bilder");

get '/' => sub {
	my $line;
	my @entrys;
	find sub {my $file="$File::Find::name"; push @entrys, $file;}, $datadir;
	foreach my $filename (@entrys) {
	open FH, $filename or die "Can't open '$filename': $!";
	while (my $zeile=<FH>) {
	$zeile=sonderzeichen($zeile);
	$line = $line.$zeile;
	}
	close FH;
	}
	template "index.tt", { line => $line};
};

true;
sub sonderzeichen {...}