Select Code to Download

    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 \"flyfly
+fly.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.

unless ($w->ok) {
    die "No match for $dom\n";
...
if ($w->unknown_registrar) {
    die "domain found, registrar unknown. raw data \follows\n" . $w->r
+aw_whois_text . "\n";
}