use Tk;
my $selection = MainWindow->new->SelectionGet;
print $selection, $/;