Hi,

See https://metacpan.org/pod/Tk::bind#D

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

Also see "DynaMouseWheel"