Select Code to Download

$ podchecker 747546.pl
*** WARNING: line containing nothing but whitespace in paragraph at li
+ne 34 in file 747546.pl
...
*** WARNING: line containing nothing but whitespace in paragraph at li
+ne 721 in file 747546.pl
*** ERROR: Spurious text after =cut at line 787 in file 747546.pl
747546.pl has 9 pod syntax errors.

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

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

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

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