One day, I decided to find out exactly how much code I was maintaining. Since
perltidy can strip comments and POD, and also normalize the source code to make
a fair measurement, it's a perfect tool for counting Source Lines of Code
(SLOC).

Here's a small shell script using ack, perltidy, xargs, and wc to count
the source lines of code in any number of directories.

ack -f lists the files that would be searched, and --perl searches Perl
files, so we get ack's heuristics for finding Perl files. xargs -L 1 invokes
the following command for every 1 line of input. The perltidy command strips
the pod and tightens up the whitespace and writes the result to stdout, which
wc -l will then count, line by line.

So, as an example, the current Statocles release
has 50% more test lines than source lines: