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');
}