perl snippets: 'strict'