sub open {
   my $browse = $t->getOpenFile(-title => "Browse For A File!");
   if ($browse ne "") {
      $t->delete("1.0", "end");
      if (!open(TARGET, "$browse")) {
         $info = "Error!";
         $t->insert("end", "ERROR: Could not open $browse\n"); 
         return; 
      }
      #$line_count = 1;
      $filename = $browse;
      $info = "Loading file '$filename'...";
      while (<TARGET>) {
         #$t->insert("end", "$line_count ");
         $t->insert("end", $_);
         $line_count++; 
      }
      close(TARGET);
      $info = "File '$filename' loaded";
   }else{
      if (!$filename) {
         $info = "Error!";
         $t->delete("1.0", "end");
         $t->insert("end", "ERROR: Could not open $browse\n");
         return;
      }else{
         return;
      }
   }
}