use Tk;
use strict;
use warnings;

my $mw = MainWindow->new();

$mw -> title('Test für frame');

my $frame_1 = $mw->Frame(-relief      => 'ridge',
                         -width       => '100',
                         -height      => '30',
                         -borderwidth => '2')
                     ->pack(-side => 'top');

$frame_1->Label(-text => "Dieses Relief nennt sich ridge  ")
        ->pack();

my $frame_2 = $mw->Frame(-relief => 'groove',
                         -width => '100',
                         -height=> '50',
                         -borderwidth => '2')
                     ->pack(-side => 'bottom',
                            -pady => '10',
                            -padx => '5');

$frame_2->Label(-text => "Dieses Relief nennt sich groove")
        ->pack();

MainLoop;