#! /usr/bin/perl use strict ; use warnings ; use Net::Whois ; my $domain = shift @ARGV or die "I need a domain to check!" ; my $w = new Net::Whois::Domain $domain or die "Can't connect to Whois server\n" ; unless ($w->ok) { die "No match for $domain" } if ( my $contact_hashref = $w->contacts ) { foreach my $contact ( keys %$contact_hashref ) { print join "\n\t", $contact, @{$contact_hashref->{$contact}} ; print "\n\n" ; } } #### $ perl test.pl example.com ADMINISTRATIVE Internet Assigned Numbers Authority (IANA) iana@IANA.ORG 4676 Admiralty Way, Suite 330 Marina del Rey, CA 90292 US 310-823-9358 Fax- 310-823-8649 TECHNICAL Internet Assigned Numbers Authority (IANA) iana@IANA.ORG 4676 Admiralty Way, Suite 330 Marina del Rey, CA 90292 US 310-823-9358 Fax- 310-823-8649