Do that in the Perl wrapper constructor