perl binding prepare