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

##</code><code>##

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

##</code><code>##

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