open (TEMP, ">compare") || "Cannot open compare!\n";
   print TEMP $t->get("1.0", "end");
   close(TEMP);