| Current Path : /proc/self/root/usr/share/doc/libnet-xwhois-perl/examples/ |
| Current File : //proc/self/root/usr/share/doc/libnet-xwhois-perl/examples/whois |
#!/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;