X:\database> perl -le "@foo = glob('ABC*'); print scalar @foo"
540