sub ShowResults {
      
   print "Query:     $QueryIn\n";
   print "Registry:  $NicServ\n";
    
   print "Results:\n";
   if ($WhoisResults eq "") {
      $WhoisResults = "Null query, no data returned.";
   }
   print "$WhoisResults\n";
   print "\n";
   exit 0;
}