Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
my $mw = MainWindow->new();
$mw->SelectionHandle( -selection => 'CLIPBOARD', sub { return 'clip' }
+ );
$mw->SelectionOwn( -selection => 'CLIPBOARD' );

#!/usr/bin/perl
use warnings;
use strict;
...
my $mw = MainWindow->new();
$mw->SelectionHandle( -selection => 'PRIMARY', sub { return 'clip' } )
+;
$mw->SelectionOwn( -selection => 'PRIMARY' );