eval {
  find( sub { ...; --$fnlinks or die; }, $dir );
};

##</code><code>##

UNLINKS: {
  find( sub { ...; --$fnlinks or last UNLINKS; }, $dir );
}