#!/usr/bin/perl -w
                                                                                
use Tk;
use strict;
                                                                                
my $mw = MainWindow->new;
my $c = $mw->Scrolled('Canvas',
-width => 100,
-height => 100,
-background =>'blue',
-scrollregion => [ 0, 0, 500, 500 ]
);
$c->pack(-expand => 1, -fill => 'both');
$c->createRectangle(100, 100, 150, 150, -fill => 'yellow');
                                                                                
MainLoop;