#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;
use IO::Socket;

my %whois_servers = (
  "RIPE"=>"whois.ripe.net",
  "APNIC"=>"whois.apnic.net",
  "KRNIC"=>"whois.krnic.net",
  "LACNIC"=>"whois.lacnic.net",
  "ARIN"=>"whois.arin.net",
  "AFRINIC"=>"whois.afrinic.net",
);

my $sock = IO::Socket::INET->new(
  PeerAddr=>$whois_servers{ARIN},
  PeerPort=>'43',
  Timeout=>'60',
);

$sock->print("n + 8.8.8.8.\n");
my @ret = <$sock>;
@ret = grep {length($_)} map { s/\n//; $_ } @ret;

print Dumper(\@ret);

##</code><code>##

0000  6e 20 2b 20 38 2e 38 2e 38 2e 38 2e 0a            n + 8.8.8.8..