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