Stuff

     sub chdir_file_normal {
         use File::Basename();
         my $file = @_ == 2 ? $_[1] : $_[0]->{FILENAME};
         my $dir = File::Basename::dirname($file);
         chdir $dir or die "Can't chdir to $dir: $!";
     }

^ in startup.pl did not work either