perl Safe Safe