Select Code to Download

sub open {
   my $browse = $t->getOpenFile(-title => "Browse For A File!");
...
      }
   }
}

  use Term::ANSIColor; 
  $red = color('red');  # Retrieve color codes
  $bold = color('bold');
  $wid->insert('end', "$red red text $bold with bold\n");

$wid->insert("end", $red $_);