Select Code to Download

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

my $ziptest = Archive::Zip->new($bfiledst);
if (!defined($ziptest)) {
...
    # another error.
  }
}