unless ($w->ok) {
    die "No match for $dom\n";
}

if ($w->unknown_registrar) {
    die "domain found, registrar unknown. raw data \follows\n" . $w->raw_whois_text . "\n";
}