my @subdirs = readdir($dh);