Kinda a side point of the parent node, and doesn't necessarily deal with Perl, but I thought of this while reading it:

Does anyone know of a tool that can automatically check for "exploding archives" (archive files that unload everything into the current directory instead of creating a single subdirectory), pack the archive into a subdir, and release the archive from there?