Select Code to Download

system('zip',$zipfile_name,'*.pdf');
## don't forget to check $? for errors

use Archive::Zip;
my $zip = new Archive::Zip;
...
}

die "Can't write zip file" if $zip->writeToFileNamed('pdfs.zip') != AZ
+_OK;