You might want to not bother writing your own code, but to use Perl's ability to invoke other programs. In this case, the tool you're looking for is zipsplit. If you're on *NIX (or Mac OSX, I'm guessing), it should have come along with the zip program. If you're on Windows, then you can get it from the GnuWin32 project