#!perl

use Net::Whois::Raw qw( whois $OMIT_MSG $CHECK_FAIL $CACHE_DIR $CACHE_TIME $USE_CNAMES $TIMEOUT );
use strict;
use warnings;

# HTTP HEADER
print "Content-type: text/html \n\n";

my $ip = $ARGV[0];

my ($dominfo,$whois_server) = whois($ip);

print "whois server: $whois_server", "<br><pre>";

print $dominfo, "</pre>";