use File::Basename qw(dirname); my $project_root = dirname(dirname()); # $0 oder FindBin zusammen mit FindBin->again geht auch $PerlConfig = <