use Tk;
use strict;
 
my $mw = MainWindow->new;
$mw->title("Hello World");
my $txt = $mw->Text(-exportselection => 1);
$txt->pack;
$mw->Button(-text => "Done", -command =>
  sub { if ($txt->getSelected) {
           print $txt->getSelected,"\n";
        } else {
           print "No text selected\n";
        }
        exit
      })->pack;
MainLoop;