#!/usr/bin/perl
use strict;
use warnings;

use Tk;
use Tk::Pane;

my $mw = MainWindow -> new();

my $sframe = $mw -> Scrolled('Frame') -> pack(-fill => 'both', -expand => 1);
my $b1 = $sframe -> Button(-text => 'Button Nummer 1')->pack(-fill => 'both', -expand => 1);
MainLoop;