my $mw = MainWindow->new;
  my $txt = $mw->Text(-height => 5, -width => 40);
    $txt->bind('<Double-Button-1>', sub { local $\ = "\n";  print $txt->getSelected});
    $txt->pack;