Add new perl example.