$ perl -le " use Tk; $mw = tkinit; $mw->bind(q/<MouseWheel>/,sub{print $Tk::event->D} ); MainLoop; "
-120
-120
120
120