my $c = $mw->Scrolled('Canvas',
    -confine => 0
    -width => 200,
    -height => 200,
    -background =>'blue'
    -scroll => [ 0, 0, 500, 500 ]
)->pack(-expand => -2, -fill => 'both');

MainLoop;