use FindBin;
# z.B. anstelle von ./templates/test.tmpl
my $file = "$FindBin::Bin/templates/test.templ";