Archive::Any::Liteを試した

archive-any-lite-eg.pl

#!perl
use strict;
use warnings;

use Archive::Any::Lite;

my $d = '/path/to/dir';

use Path::Class;

for my $file (dir($d)->children) {
    next if $file->is_dir;
    my $archive = Archive::Any::Lite->new($file->absolute);
    $archive->extract("$d/extract");
    for my $extracted ($archive->files) {
        warn $extracted;
    }
}