sub print_report {
    foreach (keys %$dirs) {
        print BENCHMARK $_;
        m#^/[^/]+/#;
        next if defined $config_dirs->{$&};
        print "$_\n";
    }
}