use IO::Uncompress::Unzip qw(unzip $UnzipError);
my $file = '2.zip';
my $inner;
unzip $file, \$inner, Name => '1.zip';


##</code><code>##

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


##</code><code>##

unzip $input => $output
        or die "unzip failed: $UnzipError\n";

##</code><code>##

unzip $input => $output, Name => "data1"
        or die "unzip failed: $UnzipError\n";