use File::Glob ':glob';

sub such{
  my $kill = @inhalt;
  $list->delete('0',"$kill");
  my $verz = $eingabe->get;
  chdir "$verz" or die "Es konnte nicht in das verzeichnis gewaechselt werden: $!";
  @inhalt = bsd_glob('*.*');
  for(@inhalt){
    $list->insert('end',$_);
  }
}