Hello vinoth.ree,

Give a try to this, it seems to do the work that you ask for:

#!/usr/bin/perl
use strict;
use warnings;
use File::Temp;
use feature 'say';
use Archive::Extract;

my $indent = 0;

sub recursive_extract {
    my ($file) = @_;
    my $tmpdir = File::Temp->newdir;

    my $ae = Archive::Extract->new(
    archive => $file,
        );

    $ae->extract( to => $tmpdir->dirname );

    for my $f ( @{ $ae->files } ) {
    printf qq|%s%s\n|, q| | x $indent, $f;
    if ( $f =~ m/\.(?:zip|tar)\z/ ) {
        $indent += 2;
        recursive_extract( $f );
    }
    }

    $indent -= 2;
}

die qq|Usage: perl $0 <zip-file>\n| unless @ARGV == 1;

printf qq|%s\n|, $ARGV[0];
$indent += 2;
recursive_extract( shift );

__END__

$ perl test.pl TestPrimeZip.tar.gz
TestPrimeZip.tar.gz
  TestPrimeZip/ZipFiles/in.txt
  TestPrimeZip/ZipFiles/
  TestPrimeZip/ZipFiles/test.zip
    in.txt
  TestPrimeZip/ZipFiles.tar.gz
  TestPrimeZip/
[download]

Source of code Recursively listing the contents of a tar/zip archive.

Hope this helps, BR.