find( sub { ...; --$fnlinks or goto DONE; }, $dir );
DONE: ...