Add perl binding