#! /usr/bin/perl
use strict;
use warnings;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

my $zip = Archive::Zip->new();

open (FILE_LIST, '/home/user/d/file_list.txt')  or die "File list open fail: $!";

while (<FILE_LIST>) {
        chomp;
        my $member = $zip->addFile($_);
        print "Add error" unless ($member);
}

close FILE_LIST;

unless ($zip->writeToFileNamed('/home/user/d/backup.zip') == AZ_OK) {
        die "write error";}