Perl でって書いてあるから Perl での実装方法を知りたいんじゃないか?