This code is very simple, and I think every experienced Perl coder can think of it. However, I use this twice a day, so it's useful to me. It might help out others, or at least make some of you toss away those old while(1) { print length(<>) - 1, "\n" } scripts that some people have.
Great idea, but the thing that bites me most is having indents in pieces of code in POD. Between paragraphs, lines should be empty, even when dealing with code. So I changed it to: