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