Code from my previous post ---------------------------------------------------------------------

#!/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";
[download]

Edited Code to start reading from Tar then any zip/gz file ---------------------------------------------------------------------

#!/usr/bin/perl

use Archive::Tar;
use IO::Compress::Gzip qw(gzip $GzipError);
use IO::Uncompress::Gunzip qw(gunzip $GunzipError);
use IO::Uncompress::Unzip qw(unzip $UnzipError);
use IO::Uncompress::AnyUncompress qw(anyuncompress $AnyUncompressError
+);

my $tar = Archive::Tar->new;
#my $inner;

$tar->read('test.tar');
$inner = $tar->get_content('1.zip');
#$tar->extract_file('1.zip', \$inner);

anyuncompress \$inner, \$txt, Name => '3.txt';

#unzip \$inner, \$txt, Name => 'ReadMe.txt';  #works
#gunzip 'test.gz', $txt;              #doesn't work    

print "$txt\n";
[download]

Hi all Perl Monks, I have a question. How can I use anyuncompress to uncompress and load a zip/gz file onto a reference? Above is the work I have done so far, the major issue is with the second part of uncompressing a reference file other than zip.