Heed some PerlCritic advice