sub entpacken
{
 my $datei;
 my $check;
 my $verzeichnis = $_[0];

 opendir(DIR, $verzeichnis);
 while($datei = readdir(DIR))
 {
  if ($datei ne "." && $datei ne "..")
  {
   $check = $verzeichnis .  $datei;
   if (-d $check)
   {
    $check = $check . "\/";
    entpacken($check);
   }
   else
   {
    print $datei . "\n";
    tue_was_mit_datei($datei);   
   }
  }
 }
 closedir(DIR);
}