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