$mw->bind('<MouseWheel>' => \&mph );
# for linux to work add
$mw->bind('<4>' => \&mph );
$mw->bind('<5>' => \&mph );