open (I, "find $config{home}$user{site_id}| "); @ary = map { chomp, $_ } <I>;
  print "@ary";