This only try to add Archive::Zip the same way umod does it...

test.ArchiveZip.pl (text/plain), 50 bytes, created by Marc-Andre Landry on 2007-03-21 22:49:39 UTC

#!/usr/bin/perl
use Archive::Zip qw(:ERROR_CODE);