#Assume all the open code
foreach( readdir DH ) {
  next if ( $_ eq '.' or $_ eq '..' );
  push @subdirs, "$dir/$_" if ( -d "$dir/$_" );
}