chdir "$d";
system("cd","$d");
@a=`cd $a`;