#!/usr/bin/perl
use Tk;
require Tk::NoteBook;

my $mw = MainWindow->new;

$nb = $mw->NoteBook()->pack(-side => 'bottom', -expand => 1, -fill => 'both');
$entry = $mw->Entry()->pack(-side => 'bottom', -expand => 1, -fill => 'both');

$tab1 = $nb->add('tab1', -label => 'tab1');
$t1 = $tab1->Scrolled("Text")->pack(-expand => 1, -fill => 'both');

MainLoop;