perl ad