#!/usr/bin/perl -w
                                                                                
use strict;
use Tk;
                                                                                
my $mw = 'MainWindow'->new();
                                                                                
my $cv = $mw->Canvas()->pack();
                                                                                
$mw->bind('<KeyPress-a>', sub { print "Ounch!\n" } );
                                                                                
MainLoop();