#!/usr/bin/perl -w
use strict;
use Tk;
use Tk::HList;
use Tk::ItemStyle;
use Cwd;

my $mw = MainWindow->new();
$mw->geometry("400x600");

chdir "..";
my $cwd = getcwd;

my $hlist = $mw->HList(-columns=>2,
                                                          -command=>\&neues_verzeichnis($cwd)           # die Zeile wird noch so angepasst, dass das neue Verzeichnis übergeben wird
                                                        )->pack(-expand=>1, -fill=>'both');

my $red  = $hlist->ItemStyle('text', -foreground=>'#800000');

&neues_verzeichnis($cwd,$hlist);

Tk::MainLoop;

sub neues_verzeichnis{
        my @inhalt;
        my $e;
        opendir(DIR, $_[0]);
        while (my $tmp = readdir(DIR)) {
                push(@inhalt,$tmp);
        };
        $hlist->deleteAll;      
        foreach (sort(@inhalt)) {
            $e = $hlist->addchild("");
            $hlist->itemCreate($e, 0, -itemtype=>'text',
                     -text=>$_, -style=>$red );
        }
}