my $count = ( ) = glob "$dir/*.dat";