perlモジュールArchive::Zipの戻り値判定でAZ_OKが使えない時の対処法

perlのzip圧縮モジュールArchive::Zipを使用してファイル圧縮時に、
戻り値の判定で定数AZ_OKを使用すると以下のコンパイルエラーが出力されることがあります。

Bareword “AZ_OK” not allowed while “strict subs” in use
ヘッダでuse Archive::Zip;は正しく宣言しているのに。

調べてみると、

use Archive::Zip qw( :ERROR_CODES );
と宣言する必要があるみたいです。

これでコンパイルエラーも消えて解決。