#!/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/