#######################################################
## Configuration


## Location of TLD/Whois server list.
my $RSList = "/export/home/manager/whois/whoislist";
## Default whois server (don't undef this)
$DefaultNic = "whois.networksolutions.com";

my $sip=  192.35.75.55;
#print "IP ADDRESS:  $QueryIn ";
 # my $QueryIn = <STDIN>;
my $QueryIn = $sip;
chomp $QueryIn;

if ($QueryIn eq "") {
   &ShowResults();
   exit 0;
}

my @QueryArray    = split /\./, $QueryIn;
my $QueryElements = @QueryArray;

my $OrigQuery     = $QueryIn;
$QueryIn       =~ tr/A-Z/a-z/;

my @SuffixArray   = split /\ /,$QueryIn;
my $SuffixElements= @SuffixArray - 1;
$SuffixArray[$SuffixElements] =~ tr/a-z.,0-9\-\+//cd;
$QueryIn       =~ tr/a-z.,0-9\-\@\!\ \+\:\///cd;