#!/usr/bin/perl
use Tk;
use strict;
use warnings;

require Tk::DynaMouseWheelBind;

my $mw = MainWindow->new();
$mw->geometry('300x300');
my @scrollables = ('Tk::Canvas',
                   'Tk::Text',
                   'Tk::Pane',
                   'Tk::Listbox',
               );
$mw->DynaMouseWheelBind(@scrollables);

my $p = $mw->Scrolled('Pane')->pack(-expand => 1,
                                    -fill   => 'both');
$p = $p->Subwidget('scrolled');

for (1..20){
    $p->Entry->pack;
}

$p->Scrolled('Listbox')->pack->insert('end',(1..40));

MainLoop();