perl role snippet