#!/usr/bin/perl -w
#use strict;
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
use CGI qw(:standard);

if (param('link')){
   my $id = param("link");
   my $obj = Archive::Zip->new();
   my $file_member = $obj->addFile( $id );
   if ($obj->writeToFileNamed('download.zip') != AZ_OK) {  
     print header;
     print "Bad something or other!";
   } else {
     print header;
     print "<a href='download.zip'>archive created click to download</a>";
   }

}

##</code><code>##

    #my $query=new CGI;
    #print $query->redirect('http://domain.com/files/download.zip');