#!/usr/bin/perl -w

use strict;
use DNS::ZoneParse;

my $zone = DNS::ZoneParse->new("../named.master.conf/_dnsmaster");
print $zone->output();