use Tk;

use strict;
use warnings;

my $mw = MainWindow->new;
$mw->bind('<KeyPress>', \&keyPress);
$mw->bind('<Motion>',   \&mouseMotion);
MainLoop;

sub quit {
   print "User triggered event -- exiting!\n";
   exit;
}

sub keyPress {
   print "Debug:  keypress occurred\n";
   quit();
}

sub mouseMotion {
   print "Debug:  mouse motion occurred\n";
   quit();
}