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

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 {...}

sub sonderzeichen {
	my ($line) = @_;
	
	# &
	$line =~ s/&/\&amp\;/g;
	# ß
	$line =~ s/ß/\&szlig\;/g;
	# ä
	$line =~ s/ä/\&auml\;/g;
	# Ä
	$line =~ s/Ä/\&Auml\;/g;
	# ö
	$line =~ s/ö/\&ouml\;/g;
	# Ö
	$line =~ s/Ö/\&Ouml\;/g;
	# ü
	$line =~ s/ü/\&uuml\;/g;
	# Ü
	$line =~ s/Ü/\&Uuml\;/g;
	# á - kleines a mit Accent grave
	$line =~ s/á/\&agrave\;/g;
	# " - doppeltes Anführungszeichen
	$line =~ s/"/\&quot\;/g;
	# '
	$line =~ s/'/\&apos\;/g;
	# <
	#$line =~ s/</\&lt\;/g; !!! Dann gehen die HTML Codes nicht mehr!!!
	# >
	#$line =~ s/>/\&gt\;/g;
	# §
	$line =~ s/§/\&sect\;/g;
	# ²
	$line =~ s/²/\&sup2\;/g;
	# ³
	$line =~ s/³/\&sup3\;/g;
	# €
	$line =~ s/€/\&euro\;/g;

	# veränderte Zeile zurückgeben
	return $line;
	}