#!perl
use strict;
use Tk;

my $mw = tkinit( -title => 'Tk::Pane example');
my $tf = $mw->Frame->pack;
my $bf = $mw->Frame->pack;
my $nw = $tf->Scrolled('Pane', Name => 'NW', -scrollbars => 'se',)->pack( -side => 'left');
my $ne = $tf->Scrolled('Pane', Name => 'NE', -scrollbars => 'se',)->pack( -side => 'left');
my $sw = $bf->Scrolled('Pane', Name => 'SW', -scrollbars => 'se',)->pack( -side => 'left');
my $se = $bf->Scrolled('Pane', Name => 'SE', -scrollbars => 'se',)->pack( -side => 'left');
my $nwl = $nw->Label( -text => 'NW')->pack;
my $nel = $ne->Label( -text => 'NE')->pack;
my $swl = $sw->Label( -text => 'SW')->pack;
my $sel = $se->Label( -text => 'SE')->pack;
MainLoop;