NAME

SYNOPSIS

  use Net::Whois::ARIN;

  my $w = Net::Whois::ARIN->new(
              host    => 'whois.arin.net',
              port    => 43,
              timeout => 30,
          );

  #  fetch raw whois output as a scalar
  my $result = $w->query( '207.173.0.0' );

  #  fetch raw whois output as a list
  my @results = $w->query( 'NET-207-173-0-0-1' );

  #  search for a network record
  my @output = $w->network( '207.173.0.0' );
  foreach my $net (@output) {
      printf(
          "%s\t(%s)\t%s\n",
          $net->OrgName,
          $net->NetHandle,
          $net->NetRange,
      );

      # display the network's contact information
      foreach my $cust ($net->contacts) {
          printf "Contact: %s (%s)\n", $cust->Name, $cust->Email;
      }
  }

  # lookup an autonomous system number
  my($asn) = $w->asn( 5650 );
  printf "AS5650 was assigned to %s\n", $asn->OrgName;

  # search for a point-of-contact by handle
  my @contact = $w->contact('DM2339-ARIN');

  my @contact_records = $w->domain('eli.net');

  # search for an organization record by the OrgId
  my @org = $w->organization('FRTR');

  # search for a customer record by Handle
  my @customers = $w->customer('C00823787');

DESCRIPTION

METHODS

new - create a Net::Whois::ARIN object

  my $o = Net::Whois::ARIN->new(
    [-hostname=> 'whois.arin.net',]
    [-port    => 43,]
    [-timeout => 45,]
    [-retries => 3,]
  );
    

This is the constuctor for Net::Whois::ARIN. The object returned can be used to query the whois database.

query - make a raw query to the whois server

  my @output = $o->query('207.173.112.0');
    

network - request a network record

  my @records = $o->network('207.173.112.0');
    

This method requires a single argument. The argument indicates the network to use in the whois lookup. The method returns a list of Net::Whois::ARIN::Network records that matched your search criteria.

asn - request an ASN record

  my @record = $o->asn(5650);
    

This method requires a single argument. The argument indicates the autonomous system number to use in the whois lookup. The method returns a list of Net::Whois::ARIN::AS objects.

organization - request an organization record

  my @record = $w->org('ELIX');
    

customer - request a customer record

  my @records = $w->customer('ELIX');
    

contact - request a point-of-contact record

  my @record = $w->contact('DM2339-ARIN');
    

domain - request all records from a given domain

  @output = $w->domain('eli.net');
    

SEE ALSO

Net::Whois::ARIN::Network

Net::Whois::ARIN::Contact

Net::Whois::ARIN::Organization

Net::Whois::ARIN::Customer

AUTHOR

COPYRIGHT AND LICENSE

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