perl -MNet::Whois -e "$w=new Net::Whois::Domain \"flyflyfly.com\"; print 1 unless($w->ok)"
    1

    perl -MNet::ParseWhois -e "$w=new Net::ParseWhois::Domain \"flyflyfly.com\"; print 1 unless($w->ok)"
    no registrar configured for referral whois.corenic.net
    Can't call method "ok" without a package or object reference at -e line 1.

##</code><code>##

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";
}