$ podchecker 747546.pl
*** WARNING: line containing nothing but whitespace in paragraph at line 34 in file 747546.pl
*** ERROR: =item without previous =over at line 130 in file 747546.pl
*** WARNING: line containing nothing but whitespace in paragraph at line 141 in file 747546.pl
*** ERROR: Spurious text after =cut at line 135 in file 747546.pl
*** WARNING: line containing nothing but whitespace in paragraph at line 158 in file 747546.pl
*** ERROR: Spurious text after =cut at line 156 in file 747546.pl
*** ERROR: =item without previous =over at line 360 in file 747546.pl
*** WARNING: line containing nothing but whitespace in paragraph at line 378 in file 747546.pl
*** ERROR: Spurious text after =cut at line 372 in file 747546.pl
*** WARNING: line containing nothing but whitespace in paragraph at line 485 in file 747546.pl
*** ERROR: Spurious text after =cut at line 480 in file 747546.pl
*** ERROR: =item without previous =over at line 527 in file 747546.pl
*** WARNING: line containing nothing but whitespace in paragraph at line 533 in file 747546.pl
*** ERROR: =item without previous =over at line 716 in file 747546.pl
*** WARNING: line containing nothing but whitespace in paragraph at line 719 in file 747546.pl
*** WARNING: line containing nothing but whitespace in paragraph at line 721 in file 747546.pl
*** ERROR: Spurious text after =cut at line 787 in file 747546.pl
747546.pl has 9 pod syntax errors.

##</code><code>##

$ perl -c 747546.pl
syntax error at 747546.pl line 681, near "next "

##</code><code>##

191:                    open(CACHE_FH," < $cache");
212:            open(F,">$cache");
425:                    open(FILE, ">$cache");
677:                    open(CACHE_FH, "< $cache");
700:            open(F,">$cache");

##</code><code>##

411:                    stdout::debug("BroadcastPing: Read $#lines lines from $cache\n");
421:                    stdout::debug("BroadcastPing: Writing $#keys lines to $cache\n");
926:                    stdout::debug("read_arptable(): ARP Read: Read $#lines lines from $arp_cachefile\n");

##</code><code>##

                        stdout::debug("BroadcastPing: Read " . @lines . " lines from $cache\n");
                        stdout::debug("BroadcastPing: Writing " . @keys . " lines to $cache\n");
                        stdout::debug("read_arptable(): ARP Read: Read " . @lines . " lines from $arp_cachefile\n");