How about perl -MO=Deparse foo.pl | wc -l?
In reply to Re: Perl LOC counter? by diotalevi in thread Perl LOC counter? by samtregar