Help for this page
eval { find( sub { ...; --$fnlinks or die; }, $dir ); };
UNLINKS: { find( sub { ...; --$fnlinks or last UNLINKS; }, $dir ); }