#!/usr/bin/perl -w

use strict;
use DNS::ZoneFile;

my ($ORIGIN,$NEW_ZONE);
my $zone=DNS::ZoneFile->new(
        "../named.master.conf/_dnsmaster",
        ZONE_ORIGIN=>$ORIGIN,
        NEW_ZONE=>$NEW_ZONE,
        );
$zone->printZone( "example.com" );