Passes Perl Critic 'Harsh'