my $a_records = $zonefile->a();
# A records
foreach my $record (@$a_records) {
  my $a_name = $record->{name};
  $a_name =~ s/$/.$DOMAIN/g;
  $a_name =~ s/\@.//g;
  my $a_host = $record->{host};

  my $a_name_packed_ip = gethostbyname("$a_name.$DOMAIN");
        if (defined $a_name_packed_ip) {
                $a_name_ip_address = inet_ntoa($a_name_packed_ip);
        }
  my $a_host_packed_ip = gethostbyname("$a_host");
        if (defined $a_host_packed_ip) {
                $a_host_ip_address = inet_ntoa($a_host_packed_ip);
        }

        if ($a_name_ip_address ne $a_host_ip_address) {
                print FILE "$DOMAIN:A:$a_name:$a_name_ip_address//DNS:A:$a_host_ip_address\n";
        }
}