last if $files >= $N;

##</code><code>##

    last if ++$files >= $N while readdir DIR;