$t->bind('Tk::Text', '<4>', sub {print "Scroll up!"});
$t->bind('Tk::Text', '<5>', sub {print "Scroll down!"});