Ran perlcritic, made some changes.