#!/usr/bin/perl

use Tk;
use strict;

my ($var, $datei);

my $mw = new MainWindow;
$mw -> Label (-text => "nur ein kleines Beispiel") -> pack();
my $optionmenu = $mw -> Optionmenu (-options => [qw/perl perl5 php5/], -variable => \$var, -command => \&subfunktion) -> pack();
my $listbox => $mw -> Listbox (-selectmode => "single", -height => 5) -> pack();

MainLoop;

sub subfunktion{
opendir (VAR, "/usr/share/$var") || die "öffnen fehlgeschlagen: $!";
my @inhalt = readdir VAR;
closedir VAR;
foreach $datei (@inhalt){$listbox -> insert ('end', "$datei");}
}