#!/usr/bin/perl
use Tk;

$top = new MainWindow;
$top->eventAdd(qw[<<Copy>> <Key-F4>]);
$top->eventAdd(qw[<<Paste>> <Key-F5>]);
$top->Text->pack;
MainLoop;
__END__