for (keys %emails) {
    my ($domain) = $_ =~ m/<[^@]+@([^>]+)>/;
    my $dns = gethostbyname($domain) || gethostbyname("www.$domain");
    $dns = $dns ? "OK DNS" : "No DNS";    
    print "$dns  email: $_  page(s): $emails{$_}\n";
}