find_bad_files.p6

sub MAIN($dir = '.') {
    my @todo = $dir.IO;
    my @list;
    my @lines = $dir eq '.' ?? run( 'find', :out).out.lines !! run('find', $dir, :out).out.lines;
    $_.IO.e or @list.push($_.IO) for @lines;
    while @todo {
        for @todo.pop.dir -> $path {
            if $path.d {
                @todo.push: $path;
                $_.IO.e or @list.push($_.IO) for run('find', $path, :out).out.lines;
            }
        }
    }
    say @list;
}