Added rough Perl binding