use IO::Compress::Zip qw(:all);

  zip [ glob("*.lib") ] => "my.zip"
    or die "Cannot create zip file: $ZipError" ;