Thanks, that looks like the answer. However, I had to fix a bug in sloccount 2.22 before it would actually skip POD. I'll send it to the maintainer, but here it is in case anyone needs it too:

--- ../sloccount-2.22/perl_count        2002-01-02 12:21:08.000000000 
+-0500
+++ perl_count  2003-05-15 13:33:45.000000000 -0400
@@ -58,7 +58,8 @@
   open (FILE, $file);
   while (<FILE>) {
     s/#.*//;  # Delete leading comments.
-    if (m/^\s*$heredocument/) {$heredocument = ""; # finished here do
+c.
+    if ($heredocument and m/^\s*$heredocument/) {
+      $heredocument = ""; # finished here doc.
     } elsif (m/<<\s*["']?([A-Za-z0-9_-]+)["']?[;,]\s*$/) {
       # Beginning of a here document.
       $heredocument = $1;
[download]

-sam