perl module for generating codenames