#!/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" );

##</code><code>##

> perl Fetchzones.pl
Useless use of private variable in void context at /usr/local/lib/perl5/site_perl/5.6.1/DNS/ZoneFile.pm line 115.
Use of implicit split to @_ is deprecated at /usr/local/lib/perl5/site_perl/5.6.1/DNS/ZoneFile.pm line 220.
Use of implicit split to @_ is deprecated at /usr/local/lib/perl5/site_perl/5.6.1/DNS/ZoneFile.pm line 240.
Use of implicit split to @_ is deprecated at /usr/local/lib/perl5/site_perl/5.6.1/DNS/ZoneFile.pm line 260.
Explicit blessing to '' (assuming package main) at /usr/local/lib/perl5/site_perl/5.6.1/DNS/ZoneFile.pm line 133.
Can't locate object method "readZoneFile" via package "main" (perhaps you forgot to load "main"?) at /usr/local/lib/perl5/site_perl/5.6.1/DNS/ZoneFile.pm line 139.