print $message;
 }
}

sub license {
 if (not open(IN,"$path/license.txt")) {
  say ("
Unable to open License.txt for input.

Your copy of this program is either incomplete or this file is missing for 
another reason.  Obtain an original, complete copy of the software from 
http://www.HoTTProxy.org.

",0);
 } else {
  my @license = <IN>;
  close IN;
  say (join('',@license),0);
 }
 exit;
}