#!/usr/bin/perl -s

use lib qw(lib/ ../lib);
use Net::XWhois; 

my $whois = new Net::XWhois Domain => shift,
                            Server => $h;

if ( $e ) { my @emails = $whois->contact_emails; $" = ", "; print "Contacts: @emails\n";  exit }
if ( $n ) { my @emails = $whois->nameservers; $" = ", "; print "Nameservers: @emails\n";  exit }
if ( $r ) { my @emails = $whois->registrants; $" = ", "; print "Registrants: @emails\n";  exit }
print $whois->response;