#!/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") -> place (-x => 0, -y => 35);
	}