I wrote (but did not release on CPAN) Archive::SevenZip. This might do enough of what you actually want.

The module is rough on some parts - I use it mostly to extract files from a ZIP archive on Windows, maybe it is useful to you as well.

The module and its API certainly could use some love, so if somebody is willing to adopt it or to make its API more compatible with the API of Archive::ZIP, both would be very welcome.