my $soa = $zonefile->soa();
print "serial:  ", $soa->{serial}, "\n",
      "origin:  ", $soa->{origin}, "\n",
      "primary: ", $soa->{primary}, "\n";