#!/usr/local/bin/perl -w
use Tk;
use strict;

require Tk::TFrame;
require Tk::Adjuster;

my 
(
    $mw,
    $frmLeft,
    $adjMiddle,
    $frmRight,
);

$mw = MainWindow->new(-title => 'foo');

$frmLeft   = $mw->TFrame
(
    label => [-text => 'links']

)->pack (-expand => 1, -fill => "both", -side => 'left');


$adjMiddle = $mw->Adjuster
(
    -widget => $frmLeft,
    -side => 'left',
    -restore => 1,

)->pack (-side => 'left', -fill => 'y');


$frmRight   = $mw->TFrame
(
    label => [-text => 'rechts']
    
)->pack (-expand => 1, -fill => "both", -side => 'right');

MainLoop;
[download]