sub anzeigen
{
my $top = $fenster->Toplevel();

#$top = new MainWindow;

$hlist = $top->Scrolled("HList",
            -header => 1,
            -columns => 5,
            -scrollbars => 'osoe',
            -width => 70,
               )->pack(-expand => 1, -fill => 'both');


$hlist->header('create', 0, -text => 'Datum');
$hlist->header('create', 1, -text => 'Start-KM');
$hlist->header('create', 2, -text => 'Ende-KM');
$hlist->header('create', 3, -text => 'Gefahrene KM');
$hlist->header('create', 4, -text => 'Grund');

open (EINGABE, "<fahrtenbuch.log");
@dateiinhalt = <EINGABE>;
close (EINGABE);

$eintragnr = 0;

foreach $satz (@dateiinhalt)
{
chop $satz;
@daten = split(/;/,$satz);
$gefkm = $daten[2]-$daten[1];
$hlist->add($eintragnr);
$hlist->itemCreate($eintragnr, 0, -text => "$daten[0]");
$hlist->itemCreate($eintragnr, 1, -text => "$daten[1]");
$hlist->itemCreate($eintragnr, 2, -text => "$daten[2]");
$hlist->itemCreate($eintragnr, 3, -text => "$gefkm");
$hlist->itemCreate($eintragnr, 4, -text => "$daten[3]");
$eintragnr++;
}
}