my $mw = MainWindow->new();
$mw->clipboardClear();
$mw->clipboardAppend('clip');

my $selected = $mw->SelectionGet();
MainLoop;

##</code><code>##

PRIMARY selection doesn't exist or form "STRING" not defined at ./tk.pl line 9