#!/usr/bin/perl -w

use strict;
use Tk;
my $mw = MainWindow->new;

$mw->Button(-text => "Paste", -command => \&DoPaste)->pack();
my $t = $mw->Text(-width => 30, -height => 5)->pack();
$t->focus;
sub DoPaste
{
    print "DoPaste\n";
    $mw->eventGenerate('<Control-v>');
}

Tk->MainLoop;