#!/usr/bin/perl -w
use strict;
use Net::Whois::IP qw(whoisip_query);

my $ip = "206.157.230.50";
my ($response,$array_of_responses) = whoisip_query($ip);


foreach my $key (keys%$response)
{       
        print "$key - ", $response->{$key}, "\n"
}