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