come comprimo il contenuto di una cartella in Perl?

magari se mi dite il comando *nix equivalente fa lo stesso...(poi lo chiamerò con una system)

Grazie!