Add perl example