#!/usr/bin/perl -w
use strict;
use Net::Netcraft::Query;


if (!defined($ARGV[0])){
    print "Usage: $0 [site]\n";
    exit;
}
my $site = $ARGV[0];

my $req = Net::Netcraft::Query->new(
site => $site,
);

my %res = $req->query;

print "Site                    : " . $res{site} . "\n";
print "Domain                  : " . $res{domain} . "\n";
print "IP Address              : " . $res{ip_address} . "\n";
print "Nameserver              : " . $res{nameserver} . "\n";
print "Reverse Dns             : " . $res{reverse_dns} . "\n";
print "Country                 : " . $res{country} . "\n";
print "Nameserver Organisation : " . $res{nameserver_organisation} . "\n";
print "Date First Seen         : " . $res{date_first_seen} . "\n";
print "Dns Admin               : " . $res{dns_admin} . "\n";
print "Organisation            : " . $res{organisation} . "\n";
print "Domain Registry         : " . $res{domain_registry} . "\n";
print "Last Reboot             : " . $res{last_reboot} . "\n";
print "Netblock Owner          : " . $res{netblock_owner} . "\n";

print "\n";

print "History 1               : " . $res{history_1} . "\n";
print "History 2               : " . $res{history_2} . "\n";
