#!/usr/bin/perl

use strict;
use warnings;

my $l;

system('/usr/local/sbin/ndc stats >/dev/null 2>&1');

$l = `tail -3 /etc/namedb/named.stats | head -1 | sed 's/  / /g' | cut -f 16 -d " "`;
$l =~ /(\d+)/;
$l = int ($l);

printf "%d\n", $l;

system('/bin/mv /etc/namedb/named.stats /etc/namedb/bind.memstats');
unlink '/etc/namedb/named.memstats', '/etc/namedb/named.stats';