#!/usr/bin/perl

use IO::Uncompress::Unzip qw(unzip $UnzipError);

my $file = 'all.zip';
my $inner;
unzip $file, \$inner, Name => '1.zip';

my $txt;
unzip \$inner, \$txt, Name => 'ReadMe.txt';

print "$txt\n";