#!/usr/bin/perl -U
use Net::Whois; use Carp;
$c = 123; my $ip = "127.0.0.1";
my $w = new Net::Whois::Domain $ip
 or die "Can't connect to server\n";
unless ($w->ok) { croak "No match for $ip";}
@data = '';
$data[0] = $c;
$data[1] = $w->domain;$data[1] = "$data[1]\n";
$data[2] = $w->name;$data[2] ="$data[2]\n";
$data[3] = $w->tag;$data[3] = "$data[3]\n";
$data[4] = map { "    $_\n" } $w->address;
$data[5] = $w->country;$data[5] = "$data[5]\n";
print @data;