#! /usr/bin/perl

use strict;
use warnings;

use Tk;
use Tk::DynaTabFrame;

my $mw = MainWindow->new();

my $TabbedFrame = $mw->DynaTabFrame ( );

my $frame = $TabbedFrame->add
(
-caption => 'Tab 1',
-tabcolor => 'yellow',
-hidden => 0
);

my $button = $frame->Button( -text => 'Button 1 on Tab 1' );

my $frame2 = $TabbedFrame->add
(
-caption => 'Tab 2',
-tabcolor => 'red',
-hidden => 0
);

my $button2 = $frame->Button( -text => 'Button 1 on Tab 2' );

MainLoop();