my $RootAndSubDir = $ENV{'SCRIPT_FILENAME'};
$RootAndSubDir =~ s-(.*?)\/MyPerlSkript.pl-$1/-g;