NAME

Net::Whois - Get and parse "whois" data from InterNIC

SYNOPSIS

my $w = new Net::Whois $dom
    or die "Can't find info on $dom\n";
#
# Note that all fields except "name" and "tag" may be undef
#   because "whois" information is erratically filled in.
#
print "Domain: ", $w->domain, "\n";
print "Name: ", $w->name, "\n";
print "Tag: ", $w->tag, "\n";
print "Address:\n", map { "    $_\n" } $w->address;
print "Country: ", $w->country, "\n";
print "Servers:\n", map { "    $$_[0] ($$_[1])\n" } @{$w->servers};
if (my $c = $w->contacts) {
    print "Contacts:\n";
    for my $t (sort keys %$c) {
        print "    $t:\n";
        print map { "\t$_\n" } @{$$c{$t}};
    }
}

$cur_server = Net::Whois::server;
Net::Whois::server 'new.whois.server';  # optional

DESCRIPTION

Net::Whois::new() attempts to retrieve and parse the given domain's "whois" information from the InterNIC ("whois.internic.net", unless changed by Net::Whois::server()). If the constructor returns a reference, that reference can be used to access the various attributes of the domains' whois entry.

AUTHOR

Originally written by Chip Salzenberg in April of 1997.

COPYRIGHT

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.