#! /usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::DynaTabFrame;

my $mw = MainWindow->new();
$mw->geometry('200x200');
                               
                               
my $TabbedFrame = $mw->DynaTabFrame()
    ->pack(-side => 'top', -expand => 1, -fill => 'both');
                               
my $frame = $TabbedFrame->add(
           -caption => 'Tab 1',
           -tabcolor => 'yellow',
           -hidden => 0
      );

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

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

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

MainLoop();