my $shortname = $bfile;
$shortname =~ s!.*[\\/]!!;
my $member = $zip->addFile($bfile, $shortname);

##</code><code>##

my $ziptest = Archive::Zip->new($bfiledst);
if (!defined($ziptest)) {
  # big error;
}
my @members = $ziptest->members;
#check to make sure it has what you expect

#then check individual files:

for (@members) {
  if (! defined($ziptest->contents($_))
    # another error.
  }
}