Just incase anyone was interested, I solved my delima (with a LOT of digging around CPAN and perlmonks) here is the complete script::

#!/usr/bin/env perl

############################################################
#                                                          #
# This script will parse a zonefile and perfom a Lookup on #
# the host's entries to verify nameserver propagation.     #
#                                                          #
#                                                          #
#                                                          #
# v2.2 - Syntax cleanup                                    #
#                                                          #
############################################################

use Net::DNS;
use DNS::ZoneParse; 
use Socket;

my $res = Net::DNS::Resolver->new;
my $ZONEPATH = $ARGV[0] or die "You Must specify the /full/path/to/zon
+efiles/domain.com\n";
my @fields = split(/\//,$ARGV[0]); 
my $DOMAIN = $fields[-1];
my $data_file = "/tmp/$DOMAIN.err";

open FILE, "+>$data_file" or die "can't open $data_file $!";

my $zonefile = DNS::ZoneParse->new($ZONEPATH);
my $mx_records = $zonefile->mx();
my $a_records = $zonefile->a();
my $soa_record = $zonefile->soa();
my $cname_records = $zonefile->cname();
my $ns_records = $zonefile->ns();
# -- ZoneParse Variables --
my $SOA_SERIAL=($soa_record->{serial});
my $SOA_PRIMARY=($soa_record->{primary});
my $SOA_REFRESH=($soa_record->{refresh});
my $SOA_RETRY=($soa_record->{retry});
my $SOA_TTL=($soa_record->{ttl});
my $SOA_MINTTL=($soa_record->{minimumTTL});
my $SOA_EMAIL=($soa_record->{email});
my $SOA_EXPIRE=($soa_record->{expire});

# DNS query SOA
my $soa_query = $res->query($DOMAIN, "SOA");
if ($soa_query) {
    my $lookup_primary = ($soa_query->answer)[0]->mname;
    my $lookup_eMail = ($soa_query->answer)[0]->rname;
    my $lookup_serial = ($soa_query->answer)[0]->serial;
    my $lookup_refresh = ($soa_query->answer)[0]->refresh;
    my $lookup_retry = ($soa_query->answer)[0]->retry;
    my $lookup_TTL = ($soa_query->answer)[0]->ttl;
    my $lookup_minimum = ($soa_query->answer)[0]->minimum;
    my $lookup_expire = ($soa_query->answer)[0]->expire;

    if ($SOA_SERIAL ne $lookup_serial){
        print FILE "$DOMAIN:SOA:Serial:$SOA_SERIAL//DNS:SOA:Serial:$lo
+okup_serial\n";
    }
    if ($SOA_PRIMARY ne $lookup_primary){
        print FILE "$DOMAIN:SOA:Primary:$SOA_PRIMARY//DNS:SOA:Primary:
+$lookup_primary\n";
    }
    if ($SOA_REFRESH ne $lookup_refresh){
        print FILE "$DOMAIN:SOA:Refresh:$SOA_REFRESH//DNS:SOA:Refresh:
+$lookup_refresh\n";
    }
    if ($SOA_RETRY ne $lookup_retry){
        print FILE "$DOMAIN:SOA:Retry:$SOA_RETRY//DNS:SOA:Retry:$looku
+p_retry\n";
    }
    if ($SOA_TTL ne $lookup_TTL){
        print FILE "$DOMAIN:SOA:TTL:$SOA_TTL//DNS:SOA:TTL:$lookup_TTL\
+n";
    }
    if ($SOA_MINTTL ne $lookup_minimum){
        print FILE "$DOMAIN:SOA:MinTTL:$SOA_MINTTL//DNS:SOA:MinTTL:$lo
+okup_TTL\n";
    }
    if ($SOA_EMAIL ne $lookup_eMail){
        print FILE "$DOMAIN:SOA:eMail:$SOA_EMAIL//DNS:SOA:eMail:$looku
+p_eMail\n";
    }
    if ($SOA_EXPIRE ne $lookup_expire){
        print FILE "$DOMAIN:SOA:Expire:$SOA_EXPIRE//DNS:SOA:Expire:$lo
+okup_expire\n";
    }
    } else {
        print FILE "query failed: ", $res->errorstring, "\n";
}

# 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_hos
+t_ip_address\n";
    }
} 

# CNAME records handler
foreach my $record (@$cname_records) {
    my $cname_name = $record->{name};
    my $cname_host = $record->{host};
    my $cname_name_packed_ip = gethostbyname("$cname_name.$DOMAIN");
    if (defined $cname_name_packed_ip) {
        $cname_name_ip_address = inet_ntoa($cname_name_packed_ip); 
    }
    my $cname_host_packed_ip = gethostbyname("$cname_host");
    if (defined $cname_host_packed_ip) { 
        $cname_host_ip_address = inet_ntoa($cname_host_packed_ip); 
    }
    if ($cname_name_ip_address ne $cname_host_ip_address) { 
    print FILE "$DOMAIN:CNAME:$cname_name:$cname_name_ip_address//DNS:
+CNAME:$cname_host:$cname_host_ip_address\n";
    }
}

# DNS query MX records
my @mx = mx($res, $DOMAIN);
my $DNS_mx_records_size = scalar @mx;
my $mx_records_size = scalar @$mx_records;

if ($DNS_mx_records_size ne $mx_records_size) {
    print FILE "$DOMAIN:MX:Count:$mx_records_size//DNS:MX:Count:$DNS_m
+x_records_size\n";
    foreach my $mx_record(@$mx_records) { 
        print FILE $DOMAIN, ":MX:", $mx_record->{priority}, ":", $mx_r
+ecord->{host},"//\n"; 
        }
    foreach my $record (@mx) {
        print FILE "DNS:MX:", $record->preference, ":", $record->excha
+nge, "\n";
        }
    } else { 
        foreach $mx_record(@$mx_records){ 
            foreach $record (@mx) {
                my $mx_priority = $mx_record->{priority};
                my $mx_host = $mx_record->{host};
                my $mx_preference = $record->preference;
                my $mx_exchange = $record->exchange;
                if ($mx_priority = $mx_preference and $mx_host ne $mx_
+exchange) {
                    print FILE"Records Do Not Match: ", $DOMAIN, ":MX:
+", $mx_record->{priority}, ":", $mx_record->{host}, "//", "DNS:MX:", 
+$record->preference, ":", $record->exchange,"\n"; 
                }
            }    
        }    
    }        
    
close(FILE);
[download]