#!/usr/bin/perl -w

use strict;
use Tk;

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

my $cv = $mw->Canvas()->pack();

$cv->Tk::bind( '<KeyPress-a>', sub { print "Ounch!\n" } ); 

MainLoop();