find . -name '*.zip' -exec perl archive.pl {} \;