$widget->bind('<MouseWheel>',[sub{print $_[1] < 0 ? "nach oben" : "nach unten"},Ev('D')]);