sub datenexport {
          my $class = shift;
        
          my $zip  = Archive::Zip->new();
          chdir $var{'uploadpfad'};
          my @Dateien;
          find( sub {push @Dateien, $File::Find::name}, './' );
        
          for(@Dateien) {
              if (-d) { $zip->addDirectory($_); }
              else { $zip->addFile($_); }
          }
        
          $zip->writeToFileNamed('test.zip');
}