cehck perlcritic - ok