use Data::Dumper;
...
$canvas->g_bind("<MouseWheel>", sub { Dumper( Tkx::Ev('%D')) . "\n";