$dir=File::Spec->catdir("\'$dir\'");