X:\database> perl -le "@foo = `dir /b ABC*`; print scalar @foo"
540