Select Code to Download

#!/usr/bin/perl -w
use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
use CGI qw(:standard :nph redirect);
...
    print redirect('http://domain.com/files/download2.zip');
   }
}