chdir($dir)
   or die("Can't change to dir $dir: $!\n");