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