Don't Repeat Yourself.
Perl::Critic