perl port ccowsugg:47