open my $fh, ">>", $fullpath or die $!;
binmode $fh;
print $log "Writer error.\n" if $zip->writeToFileNamed( $fh ) != AZ_OK;
close $fh;