use File::Spec; chdir File::Spec->updir;