my $zip = Archive::Zip->new();
$zip->addTree( 'C:\Users\Martin\Documents\Scripts\testfolder\\' );
   unless ( $zip->writeToFileNamed($BACKUPNAME) == AZ_OK ) {
       die 'write error';
   }