rename perl directory