Perl port ccowsug:36