#!/Perl/bin/perl

use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use Perl6::Say;
use Tk;
use Tk::Pane;

my $mw = Tk::MainWindow->new();

my $sf = $mw->Scrolled(
    'Frame',
    -scrollbars => 'se',
    -bg => 'green',
)->pack();

my $wasmussichhiereinsetzen = 'frame'; # ???
say ref $sf->Subwidget($wasmussichhiereinsetzen);

$mw->MainLoop();