#! 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;