use strict;
use Archive::Tar;

my $tar = Archive::Tar->new;
my @numFiles = $tar->read('test.tar.gz') ;
$_->extract for(@numFiles);
$tar->clear;
undef $tar;