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.