my $high = (sort( grep (!/^\.\.?$/, readdir(DIR))))[-1]