--- parse_bind9stat.pl	2002/07/10 22:41:01	1.5
+++ parse_bind9stat.pl	2002/07/26 10:10:02	1.7
@@ -1,5 +1,11 @@
 #!/usr/bin/perl -w
 
+# Parse output from bind9 rndc stats command
+# Dobrica Pavlinusic, <dpavlin@rot13.org>
+# http://www.rot13.org/~dpavlin/sysadm.html
+#
+# Usage: parse_bind9stat.pl [/var/log/stats.dump [/usr/sbin/rndc]]
+
 use strict;
 
 my $log = shift @ARGV || "/var/log/stats.dump";
@@ -44,12 +50,13 @@
 	}
 
 }
-close(DUMP);
 
 open(D,"> $delta") || die "can't open delta file '$delta' for log '$log': $!";
 print D tell(DUMP);
 close(D);
 
+close(DUMP);
+
 foreach (@counters) {
 	print $total{$_},"\n",$forward{$_},"\n",$reverse{$_},"\n";
 }