!/^\./ and $cnt++ for readdir( DIR );

##</code><code>##

$cnt = grep !/^\./, readdir DIR;