use strict;
use Tk;
my $mw = MainWindow->new();
$mw->bind('<MouseWheel>'=>sub{print 'wheel moved';});
MainLoop;