Perl Metrics