sub list_gui {
    my $top = make_toplevel('Übersicht', '350x350+200+200');

    my $top_frame = $top->Frame(-background => 'red')
    ->pack(-side => 'top', -expand => 1, -fill => 'x', -anchor => 'n');
    
    my $bottom_frame = $top->Frame(-background => 'lightblue')
    ->pack(-side => 'top', -expand => 1, -fill => 'both');
    
    #top frame
    $top_frame->Button(-text => 'Druckversion', -command => sub {})
    ->grid(-row => 0, -column => 0, -sticky => 'w');
    
    $top_frame->Label(-text => 'Sortierung: ')
    ->grid(-row => 0, -column => 1);

    my $sorting = $top_frame->BrowseEntry(-background => 'white')
    ->grid(-row => 0, -column => 2);
    $sorting->insert('end', 'Nach Räumen');
    $sorting->insert('end', 'Nach Alphabet');
}