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