my $filecontents = $t->get("1.0", "end");
chomp($filecontents);
print TEMP $filecontents;