This doesn't make any use of modules like Archieve::Zip

But does require the presence of an unzip binary in the current path which accepts those arguments used in your snippet - This doesn't make your code any more portable when compared to the usage of Archive::Zip, but does introduce some serious security concerns, such as if malicious commands were passed into the @zip_files array.

Thanks anyway, but I'd rather use Archive::Zip ...

use Archive::Zip qw/ :ERROR_CODES /;

my $zip = Archive::Zip->new;
my $status = $zip->read( $file );
if ( $status != AZ_OK )
{
    die "Error in reading zip file -- Return status ", $status;
}
foreach my $member ( $zip->members )
{
    next unless $member->fileName =~ /\.out$/;
    $zip->extractMember( $member );
}
[download]