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

use Tk;

my $mw = MainWindow -> new ();
$mw -> minsize (200, 250);

&listbox;
$mw -> Button (-text => "Button", -command => \&listbox)->pack();

MainLoop;

sub listbox{
	my @liste = @_;
	my $listbox = 
		$mw->Scrolled ("Listbox",
			-scrollbars => 'sw'
		)->place(
			-x => 10,
			-y => 30,
			-height => 150,  # wird benötigt
			-width => 150    # wird benötigt
		);
}