perl -MData::Dumper -MNet::Whois::IP -le '$Data::Dumper::Deepcopy = 1;
$Data::Dumper::Sortkeys = 1;
my ( $response, $array_of_responses ) 
  = whoisip_query( q{4.2.2.1}, 1, undef ); 
print Data::Dumper->Dump( 
    [ \$response, \$array_of_responses, ], 
    [ qw( *response *array_of_responses ) ] );'

##</code><code>##

$response = \{
        '# available at' => [
                'https://www.arin.net/whois_tou.html',
                'https://www.arin.net/whois_tou.html'
                            ]
              };
$array_of_responses = \undef;