See extractTree from Archive::Zip

#!/usr/bin/perl 
use strict;
use warnings;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

my $zip = Archive::Zip->new();
unless ( $zip->read( 'files.txt.zip' ) == AZ_OK ) { 
    die 'read error';
}

# (Linux)         root  dest
$zip->extractTree( '', 'tmp/' );
[download]

hth,
PooLpi