#! perl -slw
use strict;
use List::Util qw[ reduce ];

die 'Usage: $o <dir>' unless @ARGV >0;

print reduce{ -C $a > -C $b ? $a : $b } glob for @ARGV;

##</code><code>##

perl -MList::Util=reduce -le"print reduce{-C $a>-C $b?$a:$b}glob for @ARGV;" 
cache/*/*/*/*