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

  my $filetime = ( stat $entry )[9];
  my $checktime = $filetime + 604800;
  # Debug Output
  print <<"DEBUG";
Zeit (System): $zeit
Zeit (Datei):  $checktime ( $filetime + 604800 )
Dateiname: $entry
DEBUG

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