oh crap! It works!!! Damn- something so simple! Thanks so much!!! ShowResults does this:

      
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;
}
[download]

PMONK

Edit kudra, 2001-08-28 Added code tags