# Lese immer nur einen Eintrag
while ( my $entry = readdir DIR ) {
  # . und .. sind zu ignorieren
  next if $entry =~ m{^\.\.?$};

  if ( (stat($entry))[9]+604800 <= $zeit ) {
    # remove $entry and recurse into subdirectories
    $ftp->rmdir($entry, 1);
  }
}