Select Code to Download

perl -MData::Dumper -MNet::Whois::IP -le '$Data::Dumper::Deepcopy = 1;
$Data::Dumper::Sortkeys = 1;
...
print Data::Dumper->Dump( 
    [ \$response, \$array_of_responses, ], 
    [ qw( *response *array_of_responses ) ] );'

$response = \{
        '# available at' => [
...
                            ]
              };
$array_of_responses = \undef;