Select Code to Download

  $mainwindow->bind( 'Tk::Text', '<Leave>', [\&copyText, $tw1, $tw2] )
+;

sub copyText {
  my ($trigger,$tw1,$tw2) = @_;
...
  $dst->delete('1.0','end');
  $dst->insert('1.0',$txt);
}