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