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