Followed perlcritic and perltidy