#!/usr/bin/perl
use warnings;
use strict;

use Tk;
my $mw = MainWindow->new();
$mw->SelectionHandle( -selection => 'PRIMARY', sub { return 'clip' } );
$mw->SelectionOwn( -selection => 'PRIMARY' );