This is a test ground for perlcritic