print TFILE join(' ', @words),$/;
   print TFILE "<br>";