It makes no sense replicating the complex functionality of a pack program within perl. Just use the perl builtin system() to call whatever zip utility you have on your computer.

If you are on windows you might have to search for a packer where you can give all parameters on the command line instead of interactively