chdir $file;
  chdir $dir;