use Tk;
use Tk::Pane;
my $mw = MainWindow->new;
my $fr = $mw->Frame(-background=> 'black', -width=>"50", -height=>"500") ->pack(qw/ -side right -anchor nw /);

my $fm = $mw->Scrolled("Pane",-background=> 'green', -width=>"500", -height=>"500")->pack(-fill => "both", -side =>'left', -expand => 1);
my $pane = $fm->Subwidget("scrolled");
Tk::bind($pane, '<MouseWheel>', [ sub {$fm->yview('scroll',-($_[1] / 120)
* 3,'units')}, Ev('D')]);
$pane->focus;
$pane->Walk(sub {
$_[0]->bindtags([$pane, $_[0]->bindtags]);
});

my $c1 = $fm->Canvas( -width=> 500, -height=> 500, -bg=> 'white', -borderwidth=> '1')->pack(-expand=>1, -fill=>'both');


MainLoop;