#!/Perl/bin/perl

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new;

my $c = $mw->Scrolled(
        'Canvas',
        -width          => 400,
        -height         => 400,
        -relief         => 'sunken',
        -bg             => 'white',
        -borderwidth    => 1,
        -scrollbars     => 'se',
        -scrollregion   => [qw/0 0 1000 1000/]
)->pack();


$mw->MainLoop();