Select Code to Download

file Tk/DynaMouseWheelBind.pm:

...

1;

#!/usr/bin/perl
use warnings;
use strict;
...
$main->focus;

MainLoop;